delphi如何读取远程远程的txt或者ini文件中的内容并执行！

Question

樓主可以用IdHTTP1把想要的文件Get下來，然後在本地去讀取呀，讀取之後采取相應的操作!

Answer 1

第一步下载http://www.333.com/1.ini,使用idhttp.get
第二步读取1.ini里的网址
第三步shellexecute,打开每个网址

Answer 2

uses 
  URLDownloadToFile(nil,'http://www.333.com/1.txt','D:\Temp\1/txt', 0 , nil);
下载到本地处理

Answer 3

uses 
  UrlMon;  URLDownloadToFile(nil,'http://www.333.com/1.txt','D:\Temp\1/txt', 0 , nil);

Answer 4

用idhttp把ini或txt下载到本地,再读取

Answer 5

// 给你写了一个单元文件
unit uUrlTxt;interfaceuses
  Classes, Windows, SysUtils;type
  TUrlItem = record
    Link: string;
    Position: TPoint;
  end;  TUrlItemArray = array of TUrlItem;function LoadUrlListFromTextFile(fileName: string): TUrlItemArray;implementationfunction LoadUrlListFromTextFile(fileName: string): TUrlItemArray;
var
  list: TStringList; // 用于加载整个文件内容
  line: TStringList; // 用于分解一行中的各字段
  i: Integer;
begin
  list := TStringList.Create;
  line := TStringList.Create;
  line.Delimiter := '|'; // 一行中各字段是以 | 分隔的
  try
    list.LoadFromFile(fileName);
    SetLength(Result, list.Count);    for i := 0 to list.Count - 1 do
    begin
      line.DelimitedText := list[i];
      if line.Count < 3 then Continue;      Result[i].Link := line[0];                 // 第一字段是 URL链接
      Result[i].Position.X := StrToInt(line[1]);
      Result[i].Position.Y := StrToInt(line[2]);
    end;
  finally
    line.Free;
    list.Free;
  end;
end;end.

Answer 6

//使用示例：uses uUrlTxt;{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var
  fileName: string;
  list: TUrlItemArray;
  i: Integer;
  item: TUrlItem;
  s: string;
begin
  fileName := ExtractFilePath(Application.ExeName) + 'urls.txt'; // 若是下载的文件，请改成下载后的本地路径和文件名  list := LoadUrlListFromTextFile(fileName);
  for i := 0 to High(list) do
  begin
    item := list[i];
    s := Format('链接：%s       位置：(%d, %d)', [item.Link, item.Position.X, item.Position.Y]);
    mmo1.Lines.Add(s);
  end;
end;

Answer 7

第三步shellexecute,打开每个网址
这步怎么操作呢？

Answer 8

第三步shellexecute,打开每个网址 
这步怎么操作呢？
shellexecute(0,'open',pchar('IEXPLORE.EXE'),pchar(你ini里的网址'),0,sw_show); 
setcursorpos(你ini里的数据,你ini里的数据);
这些你不是都会吗 

Answer 9

unit uUrlTxt;interfaceuses
  Classes, Windows, SysUtils;type
  TUrlItem = record
  Link: string;
  Position: TPoint;
  end;  TUrlItemArray = array of TUrlItem;function LoadUrlListFromTextFile(fileName: string): TUrlItemArray;implementationfunction LoadUrlListFromTextFile(fileName: string): TUrlItemArray;
var
  list: TStringList; // 用于加载整个文件内容
  line: TStringList; // 用于分解一行中的各字段
  i: Integer;
begin
  list := TStringList.Create;
  line := TStringList.Create;
  line.Delimiter := '|'; // 一行中各字段是以 | 分隔的
  try
  list.LoadFromFile(fileName);
  SetLength(Result, list.Count);  for i := 0 to list.Count - 1 do
  begin
  line.DelimitedText := list[i];
  if line.Count < 3 then Continue;  //这里您码错了  应该是list.count <3   Result[i].Link := line[0]; // 第一字段是 URL链接
  Result[i].Position.X := StrToInt(line[1]);   //注销此段
  Result[i].Position.Y := StrToInt(line[2]);   //注销此段
  end;
  finally
  line.Free;
  list.Free;
  end;
end;end.
procedure TForm1.btn1Click(Sender: TObject);
var
  fileName: string;
  list: TUrlItemArray;
  i: Integer;
  item: TUrlItem;
  s: string;
begin
  mmo1.Clear;
  fileName := ExtractFilePath(Application.ExeName) + 'AD.txt'; // 若是下载的文件，请改成下载后的本地路径和文件名  list := LoadUrlListFromTextFile(fileName);
  for i := 0 to High(list) do
  begin
  item := list[i];
  s := Format('%s', [item.Link]);
  mmo1.Lines.Add(s);
  end;
end;楼主自己看看吧  我把AD文本内容发出来
http://ccn4.taobao.com|
http://www.chengxindiannao.cn|
http://www.baidu.com|
http://www.qq.com|
http://www.google.com.hk