> LanceRequete(x); <<<< here error when x = 2 (see below)
Which error ? Why not pass the HttpCli reference to KanceRequete instead of the index ? -- Contribute to the SSL Effort. Visit http://www.overbyte.be/eng/ssl.html -- [EMAIL PROTECTED] http://www.overbyte.be ----- Original Message ----- From: "Jean-Paul Passama" <[EMAIL PROTECTED]> To: "ICS support mailing" <twsocket@elists.org> Sent: Saturday, December 16, 2006 1:51 PM Subject: Re: [twsocket] How to uses many THttpCli simultaneously ? > Here the code > > HttpCli[1] := HttpCli2; > HttpCli[2] := HttpCli3; > HttpCli[3] := HttpCli4; > HttpCli[4] := HttpCli5; > HttpCli[5] := HttpCli6; > > for x := 1 to 5 > do begin > HttpCli[x].Tag := x; > // used to retrieve the data > Liste[x] := TStrLstHTML.Create; > Streams[x] := TMemoryStream.Create; > HttpCli[x].RcvdStream := Streams[x]; > Cookies[x] := ''; > if x = 1 > then numFFB[1] := nFFB > else numFFB[x] := RechercheNumero(numFFB[x - 1]); > nFFB := numFFB[x]; > LanceRequete(x); <<<< here error when x = 2 (see below) > end; > > procedure TFM.LanceRequete(n : integer); > begin > HttpCli[n].RcvdStream.Seek(0, soFromBeginning); > HttpCli[n].URL := urlbase + url0; > httpcli[n].AcceptLanguage := 'en, fr'; > > HttpCli[n].Cookie := ''; > HttpCli[n].Get; > end; > > Frans van Daalen a écrit : >>> ... and I get a Violation access. I guess it's because all the THttpCli >>> uses the same RequestDone procedure (the THttpCli is known by its Tag : >>> 1 to 5). >>> >> where did you get the av, and can you show the code for that line? > -- > To unsubscribe or change your settings for TWSocket mailing list > please goto http://www.elists.org/mailman/listinfo/twsocket > Visit our website at http://www.overbyte.be > -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
