彩票数据的自动更新

最新推荐文章于 2024-11-27 08:30:00 发布

原创最新推荐文章于 2024-11-27 08:30:00 发布 · 1.9k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#integer #string

// 彩票数据需要从网上进行更新，我觉得无需做得太复杂了，简简单单的

//用 idHttp 从我的网站上某个目录下下载一个TXT文件即可

// 下面是个简单的例子，防止遗忘了

// mmo1, mmo2: TMemo，用来现实数据

// pb1: TProgressBar，用来显示进度

// btn1: TButton，开始下载

// IdHTTP1: TidHTTP

procedure TfrmMain.DownloadData(URLName: string; mmo: TMemo);
var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
try
    IdHTTP1.Get(URLName, MS);
except
    MS.Free;
    Application.MessageBox('下载时发生错误，无法下载！','错误提示', MB_OK + MB_ICONERROR);
    exit;
end;
mmo.Lines.Clear;
MS.Position := 0;
mmo.lines.LoadFromStream(MS);
MS.Free;
end;

procedure TfrmMain.btn1Click(Sender: TObject);
begin
DownloadData('Http://MyWeb.URL/tc3d.txt', mmo1);
DownloadData('Http://MyWeb.URL/fc3d.txt', mmo2);
end;

procedure TfrmMain.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
pb1.Max := AWorkCountMax;
pb1.Min := 0;
pb1.Position := 0;
end;

procedure TfrmMain.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
pb1.Position := pb1.Position+AWorkCount;
end;