哪位大哥,能帮我把下面的代码改写成 Delphi的,谢谢.DWORD CFiltRedirFilter::OnUrlMap(CHttpFilterContext* pCtxt,
PHTTP_FILTER_URL_MAP pMapInfo)
{
CHAR szRedirect [256];
if (strstr (pMapInfo->pszURL, "DoRedirect"))
{
CHAR szRedirect [256];
// replace www.microsoft.com with desired server
sprintf(szRedirect, "Location: http://%s\r\n\r\n", "www.microsoft.com");
pCtxt->ServerSupportFunction ( SF_REQ_SEND_RESPONSE_HEADER,
(LPVOID) "302 Redirect",
(DWORD *) szRedirect,
0 );
// Print a message to the debug window
ISAPITRACE1 ("Redirecting to: %s\n", szRedirect);
// we are done with this request
return SF_STATUS_REQ_FINISHED_KEEP_CONN;
}
// URL did not contain a DoRedirect string.
return SF_STATUS_REQ_NEXT_NOTIFICATION;
}
PHTTP_FILTER_URL_MAP pMapInfo)
{
CHAR szRedirect [256];
if (strstr (pMapInfo->pszURL, "DoRedirect"))
{
CHAR szRedirect [256];
// replace www.microsoft.com with desired server
sprintf(szRedirect, "Location: http://%s\r\n\r\n", "www.microsoft.com");
pCtxt->ServerSupportFunction ( SF_REQ_SEND_RESPONSE_HEADER,
(LPVOID) "302 Redirect",
(DWORD *) szRedirect,
0 );
// Print a message to the debug window
ISAPITRACE1 ("Redirecting to: %s\n", szRedirect);
// we are done with this request
return SF_STATUS_REQ_FINISHED_KEEP_CONN;
}
// URL did not contain a DoRedirect string.
return SF_STATUS_REQ_NEXT_NOTIFICATION;
}
解决方案 »
- Chart1 怎么用阿,我显示数据库中的数据阿??
- DLL中MDI子窗体中的调用问题,急!!!
- 在南京找个工作可真难啊!
- SOS:特急 对Word中图片的操作:怎么让我刚刚插入的图片位于文字的中间或者浮动于文字的上方。
- 如何增加有效位(有人答对时就追加分)
- 如何将.dll包装成activex控件
- ADOTable的Filter的动态改变问题
- 以前只在win2k下装sql,请问在w98下装sql7。0需要什么。。。。
- To:千两狂死郎::Fastreport控件如何安装???
- 该如何把在BDE中设置好的数据源用INSTALLSHIELD打包?
- C动态库在delphi的调用
- 怎样通过代码建立菜单项?
type
DWORD = cardinal;
这个与C++和ASM中的DWORD定义都是一样的。
CFiltRedirFilter.OnUrlMap(pCtxt : ^CHttpFilterContext; pMapInfo : PHTTP_FILTER_URL_MAP) : Longword ;
var
szRedirect : array[0..255] of char;
szRedirect1 : array[0..255] of char;
begin
if AnsiCompareStr(pMapInfo^.pszURL,'DoRedirect') then begin
szRedirect := Format("Location: http://%s" + #13#10#13#10,"www.microsoft.com");
pCtxt^.ServerSupportFunction(SF_REQ_SEND_RESPONSE_HEADER,
(LPVOID) "302 Redirect",
(DWORD *) szRedirect,
0
);
ISAPITRACE1 ("Redirecting to: %s"+#10, szRedirect);
result := SF_STATUS_REQ_FINISHED_KEEP_CONN;
end;
result := SF_STATUS_REQ_NEXT_NOTIFICATION;
end;