我使用Synapse已经有一段时间了,主要是发送电子邮件。今天我创建了一个简单的安装程序,并尝试通过HTTP下载应用程序的exe文件。该文件大约是9 MB的大小,所以我想添加一个进度状态给用户,但我不明白我找到的例子。以下是我目前得到的:
type
THookSocketStatus = Procedure(Sender: TObject; Reason: THookSocketReason; const Value: String) of Object;
CallBack = class
Class Procedure Status(Sender: TObject; Reason: THookSocketReason; const Value: String);
end;
Class Procedure CallBack.Status(Sender: TObject; Reason: THookSocketReason; const Value: String);
var
V: String;
Begin
V := GetEnumName(TypeInfo(THookSocketReason), Integer(Reason)) + ' ' + Value;
Form1.mem1.Lines.Add(V);
application.ProcessMessages;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
HTTP: THTTPSend;
MSTM: TMemoryStream;
begin
Screen.Cursor := crHourGlass;
HTTP := THTTPSend.Create;
MSTM := TMemoryStream.Create;
Try
Try
HTTP.Sock.OnStatus := CallBack.Status;
If HTTP.HTTPMethod('GET', edt1.Text) Then
Begin
MSTM.Seek(0, soFromBeginning);
MSTM.CopyFrom(HTTP.Document, 0);
MSTM.SaveToFile(ExtractFilePath(Application.ExeName) + 'test.exe');
end;
Except
end;
Finally
MSTM.Free;
HTTP.Free;
Screen.Cursor := crDefault;
end;
end;
在这个简单的测试中我得到了这个结果:
HR_SocketClose
HR_ResolvingBegin www.website.com:80
HR_ResolvingEnd 176.102.295.18:80
HR_SocketCreate IPv4
HR_Connect www.website.com:80
HR_WriteCount 158
HR_CanRead
HR_ReadCount 288
HR_CanRead
HR_ReadCount 8192
HR_ReadCount 8192
HR_ReadCount 8192
HR_ReadCount 6720
HR_CanRead
HR_ReadCount 3299
.
.
.
HR_ReadCount 8192
HR_ReadCount 8192
HR_ReadCount 7828
HR_SocketClose
HR_SocketClose
请,什么是WriteCount和ReadCount?我如何才能得到总文件大小,以设置下载前的进度条?
谢谢你们!
1条答案
按热度按时间ha5z0ras1#
我遇到了同样的问题,并通过扩展上面的代码找到了解决方案。通过使用头信息,文件长度可以像上面建议的那样获得。
下面是我的代码:
完整的源代码和示例也可以在此处下载:http://andydunkel.net/lazarus/delphi/2015/09/09/lazarus_synapse_progress.html
安迪