关于在网页上获取信息.idhttp

最新推荐文章于 2025-01-03 17:33:03 发布

云烟，不再年轻

最新推荐文章于 2025-01-03 17:33:03 发布

阅读量2k

点赞数

分类专栏： Indy For Delphi 文章标签： delphi pascal string function

本文链接：https://blog.youkuaiyun.com/lee576/article/details/1880104

版权

Indy For Delphi 专栏收录该内容

11 篇文章

订阅专栏

假如我给我的空间里存放了一个名为1.txt的文件.
我想在delphi里读取他.
例如:http://www.baidu.com/1.txt
这样如何读取,谁能给个详细的源码.分数全部送上.

-------------------------------------------------------------------------------------------------------------------------------------------------------

Delphi(Pascal) code

  
  
   
   
   
    uses   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