Re: [twsocket] THttpCli simultaneous
Is there a better method of doing this? If so, a small example would be
GREATLY appreciated.
procedure TForm1.ExecSimultaneous;
begin
for Item := 1 to CheckListBox1.Items.Count do begin
AHttpCli := THttpCli.Create(Self);
with AHttpCli do begin
MultiThreaded := True;
FHttpCliList.Add(AHttpCli);
Tag := Item;
URL := Trim(CheckListBox1.Items[Item-1]);
RcvdStream := TMemoryStream.Create;
AHttpCHeaderData := HttpCli1HeaderData;
AHttpCli.GetAsync
end
end
end;
procedure TForm1.HttpCli1HeaderData(Sender: T);
begin
with THttpCli(Sender) do begin
if StatusCode = 404 then begin
Abort;
URL := ChangeFileExt(URL, '.txt');
GetAsync;
Exit
end;
RequestDone := HttpCliItemRequestDone
end
end;
procedure TForm1.HttpCliItemRequestDone(
Sender : T;
RqType : THttpRequest;
Error : Word);
var
Item : Integer;
AHttpCli : THttpCli;
Count : Integer;
SL: TMemoryStream;
s: String;
begin
AHttpCli := Sender as THttpCli;
{ Remove the item form the list }
Count := FHttpCliList.Count;
for Item := 1 to Count do begin
if AHttpCli = FHttpCliList.Items[Item - 1] then begin
SL := TMemoryStream.Create;
SL.LoadFromStream(AHttpCli.RcvdStream);
SL.SaveToFile('c:\' + Copy(s, LastDelimiter('/', s) + 1, 999));
SL.Free;
AHttpCli.RcvdStream.Free;
FHttpCliList.Delete(Item - 1);
Break
end
end;
{ Free the item }
AHttpCli.Free;
end;
- Original Message -
From: Francois PIETTE
To: ICS support mailing
Subject: Re: [twsocket] THttpCli simultaneous
Date: Mon, 11 Aug 2008 21:09:49 +0200
Using GetAsync and simultaneous download (one download per component
instance) doesn't change anything.
--
[EMAIL PROTECTED]
The author of the freeware multi-tier middleware MidWare
The author of the freeware Internet Component Suite (ICS)
http://www.overbyte.be
- Original Message -
From:
To: ICS support mailing
Sent: Monday, August 11, 2008 8:49 PM
Subject: Re: [twsocket] THttpCli simultaneous
So I should issue GetAsync and handle RcvdStream in the OnDocData
event,
correct?
- Original Message -
From: Francois Piette
To: ICS support mailing
Subject: Re: [twsocket] THttpCli simultaneous
Date: Mon, 11 Aug 2008 11:56:42 +0200
I'd like to use THttpCli to do multiple simultaneous GET
requests
of
different websites. All of the retrieved HTML documents need to
be
saved
to the harddrive.
When dynamically creating each of the THttpCli components, should
I
issue
GetAsync and write the data to disk in the OnDocData event? Or,
should
I just create a file stream with RcvdStream and issue a normal
Get?
GetAsync is the way to go. You can use RcvdStream with GetAsync. Be
sure to
use a different stream for each component !
--
[EMAIL PROTECTED]
Author of ICS (Internet Component Suite, freeware)
Author of MidWare (Multi-tier framework, freeware)
http://www.overbyte.be
--
To unsubscribe or change your settings for TWSocket mailing list
please goto
http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
-- Be Yourself @ mail.com!
Choose From 200+ Email Addresses
Get a Free Account at www.mail.com
-- To unsubscribe or change your settings for TWSocket mailing list
please goto
http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
--
Be Yourself @ mail.com!
Choose From 200+ Email Addresses
Get a Free Account at www.mail.com
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
Re: [twsocket] THttpCli simultaneous
I'd like to use THttpCli to do multiple simultaneous GET requests of different websites. All of the retrieved HTML documents need to be saved to the harddrive. When dynamically creating each of the THttpCli components, should I issue GetAsync and write the data to disk in the OnDocData event? Or, should I just create a file stream with RcvdStream and issue a normal Get? GetAsync is the way to go. You can use RcvdStream with GetAsync. Be sure to use a different stream for each component ! -- [EMAIL PROTECTED] Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
Re: [twsocket] THttpCli simultaneous
So I should issue GetAsync and handle RcvdStream in the OnDocData event, correct? - Original Message - From: Francois Piette To: ICS support mailing Subject: Re: [twsocket] THttpCli simultaneous Date: Mon, 11 Aug 2008 11:56:42 +0200 I'd like to use THttpCli to do multiple simultaneous GET requests of different websites. All of the retrieved HTML documents need to be saved to the harddrive. When dynamically creating each of the THttpCli components, should I issue GetAsync and write the data to disk in the OnDocData event? Or, should I just create a file stream with RcvdStream and issue a normal Get? GetAsync is the way to go. You can use RcvdStream with GetAsync. Be sure to use a different stream for each component ! -- [EMAIL PROTECTED] Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be -- Be Yourself @ mail.com! Choose From 200+ Email Addresses Get a Free Account at www.mail.com -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
Re: [twsocket] THttpCli simultaneous
Using GetAsync and simultaneous download (one download per component instance) doesn't change anything. -- [EMAIL PROTECTED] The author of the freeware multi-tier middleware MidWare The author of the freeware Internet Component Suite (ICS) http://www.overbyte.be - Original Message - From: [EMAIL PROTECTED] To: ICS support mailing twsocket@elists.org Sent: Monday, August 11, 2008 8:49 PM Subject: Re: [twsocket] THttpCli simultaneous So I should issue GetAsync and handle RcvdStream in the OnDocData event, correct? - Original Message - From: Francois Piette To: ICS support mailing Subject: Re: [twsocket] THttpCli simultaneous Date: Mon, 11 Aug 2008 11:56:42 +0200 I'd like to use THttpCli to do multiple simultaneous GET requests of different websites. All of the retrieved HTML documents need to be saved to the harddrive. When dynamically creating each of the THttpCli components, should I issue GetAsync and write the data to disk in the OnDocData event? Or, should I just create a file stream with RcvdStream and issue a normal Get? GetAsync is the way to go. You can use RcvdStream with GetAsync. Be sure to use a different stream for each component ! -- [EMAIL PROTECTED] Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be -- Be Yourself @ mail.com! Choose From 200+ Email Addresses Get a Free Account at www.mail.com -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
