uses
WinInet;
function LoadServer(const SvrScript: string; var RetString: string): BOOL;
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of char;
BytesRead: cardinal;
begin
RetString := '';
Result := False;
//打开Internet 句柄
NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
//是否分配成功成名遂
if Assigned(NetHandle) then
begin
//打开URL句柄
UrlHandle := InternetOpenUrl(NetHandle, PChar(SvrScript), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(UrlHandle) then
begin
//打开成功, 填充数组
FillChar(Buffer, SizeOf(Buffer), 0);
repeat
//保存结果
RetString := RetString + StrPas(Buffer);
FillChar(Buffer, SizeOf(Buffer), 0);
//读取Buffer
InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
until BytesRead = 0;
//关闭URL句柄
InternetCloseHandle(UrlHandle);
Result := True;
end
else Result := False;
//关闭Intenet句柄
InternetCloseHandle(NetHandle);
end; // end if NetHandle <> 0 then
end;
var
AFileContent: string;
LoadServer( 'http://202.39.84.11/xxx.txt', AFileContent);
AFileContent 只是取得内容。
另外Http绝对写入可能是不可能的。
如果你要写入文件,先要有权限,致于远程写入文件可能存在安 全问题不一定会成功。
没有试过不作评论,这样的远程写入文件很少见。