假如我给我的空间里存放了一个名为1.txt的文件.
我想在delphi里读取他.
例如:http://www.baidu.com/1.txt
这样如何读取,谁能给个详细的源码.分数全部送上.
-------------------------------------------------------------------------------------------------------------------------------------------------------
Delphi(Pascal) codeuses idhttp; function GetString(const AUrl: string): String;------------------------------------------------------------------------------------
var FSock: TIdHttp; FStream: TStringStream; begin
FSock := TIdHttp.Create(nil);
FStream := TStringStream.Create('');
try
FSock.Get(AUrl, FStream);
finally
Result := FStream.DataString;
FStream.Free;
FSock.Free;
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin Memo1.Text := GetString('http://www.baidu.com')
end;
楼上正解,不过网址改为
http://www.baidu.com/1.txt