请教如何打开远程text文件(100分)

  • 主题发起人 主题发起人 baihechou
  • 开始时间 开始时间
B

baihechou

Unregistered / Unconfirmed
GUEST, unregistred user!
如上,我想用UDP打开一个文件 在远程服务器上,如:202.39.84.11/xxx.txt
并且读取后想对其做readln操作 请问应该如何编写程序
 
幫頂,我也想知道答案.
 
用get方法可以得到
 
那也是先下到本地,然后讀啊!!!.
是否可以不下到本地,直接读取呢??
 
是否还有权限限制?

类似CopyFile();如果目标机器没设置共享就Copy不过去;
 
没有权限设置 可以自由访问的
 
还有kgm说的get方法 具体怎么操作?
 
如果用get的話,應該就是用idftp,idhttp等控件把它給下到本地,然后在本地讀取.
 
什么乱七八糟的
 
这种情况很少啊
 
没人知道么.........
 
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绝对写入可能是不可能的。
如果你要写入文件,先要有权限,致于远程写入文件可能存在安 全问题不一定会成功。
没有试过不作评论,这样的远程写入文件很少见。
 
如果要在对方打开必须放《木马》。
 
接受答案了.
 

Similar threads

回复
0
查看
804
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部