200 ok，i use GUNiffer GUNiffer.exe /t /u url http://anime.xunlei.com/Book/category/610 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 -S---- bytes= 60 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 ----A- bytes= 40 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 -S--A- bytes= 48 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 ---PA- bytes= 99 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes= 40 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes=1300 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes=1300 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 ----A- bytes= 40 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes=1300 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 ----A- bytes= 40 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes=1300 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes=1300 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 ----A- bytes= 40 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes=1300 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 ----A- bytes= 40 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes=1300 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes=1300 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 ----A- bytes= 40 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 ----A- bytes=1300 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 ----A- bytes= 40 TCP 58.251.57.69: 80 -> 192.168.1.100: 3617 TTL= 52 F--PA- bytes= 215 TCP 192.168.1.100: 3617 -> 58.251.57.69: 80 TTL=128 ----A- bytes= 40
2008/1/13, ik <[EMAIL PROTECTED]>: > > On Jan 13, 2008 1:26 PM, wfifi <[EMAIL PROTECTED]> wrote: > > yes, i have a LHTTPClientError event. > > no error occurred, it looks like program called > HTTPClientProcessHeaders, > > then no data receive. > > Please look at the headers, it can give you error number inside the > header, like 500, 510 or even a 302 (redirect) etc.. > > > can suggest some sniffer tools(for win xp) > > amm.. wrireshark http://www.wireshark.org/ > > Or change Windows to some normal OS like Linux or Free/Desktop BSD ;) > > > > > procedure TFormMain.HTTPClientError (const msg: string; aSocket: > TLSocket); > > begin > > StatusBar.SimpleText := 'Error.'; > > MessageDlg(msg, mtError, [mbOK], 0); > > end; > > > > procedure TFormMain.HTTPClientProcessHeaders(ASocket: > TLHTTPClientSocket); > > begin > > StatusBar.SimpleText := 'Response: ' + > > IntToStr(HTTPStatusCodes[ASocket.ResponseStatus]) + > > ' ' + ASocket.ResponseReason + ', data...'; > > end; > > > > 2008/1/13, ik <[EMAIL PROTECTED]>: > > > > > > > > > > > > Do you have LHTTPClientError event ? > > > If not, please make sure you have and try to show any given error... > > > > > > BTW, do you use a sniffer to see how your request is transferring ? > > > > > > Ido > > > > > > On Jan 13, 2008 10:55 AM, wfifi < [EMAIL PROTECTED]> wrote: > > > > some url can get data(example: http://www.google.com/ ), some others > > > > can't(example: http://anime.xunlei.com/Book/category/610 ), all url > can > > > > browsered by ie or firefox. > > > > how debug can find the reasons? > > > > partly my code: > > > > > > > > procedure TFormMain.MenuItemNewStoryClick(Sender: TObject); > > > > var > > > > Urlstr: String; > > > > aHost, aURI: string; > > > > aPort: Word; > > > > node: TTreeNode; > > > > begin > > > > Urlstr := InputBox('Input Comic Story Url', > > > > 'Please input comic story url', > > > > 'http://anime.xunlei.com/Book/category/610' ); > > > > if (Urlstr<>'') and (Urlstr<>'http://') then > > > > begin > > > > HTTPClient.Disconnect(); > > > > strstream:= TStringStream.Create(''); > > > > DecomposeURL(Urlstr, aHost, aURI, aPort); > > > > HTTPClient.Host := aHost; > > > > HTTPClient.URI := aURI; > > > > HTTPClient.Port := aPort; > > > > HTTPClient.SendRequest; > > > > StatusBar.SimpleText := 'Connect...'; > > > > end > > > > else > > > > //ShowMessage('Invalid Url'); > > > > end; > > > > > > > > function TFormMain.HttpClientInput(ASocket: TLHTTPClientSocket; > ABuffer: > > > > pchar; > > > > ASize: integer): integer; > > > > var > > > > oldLength: integer; > > > > begin > > > > StatusBar.SimpleText := 'input...'; > > > > strstream.WriteString(String(ABuffer)); > > > > StatusBar.SimpleText := IntToStr(ASize) + '...'; > > > > Result := ASize; // tell the http buffer we read it all > > > > end; > > > > > > > > > > > > > > > > -- > > > http://ik.homelinux.org/ > > > > > > _________________________________________________________________ > > > To unsubscribe: mail [EMAIL PROTECTED] with > > > "unsubscribe" as the Subject > > > archives at http://www.lazarus.freepascal.org/mailarchives > > > > > > > > > > > -- > http://ik.homelinux.org/ > > _________________________________________________________________ > To unsubscribe: mail [EMAIL PROTECTED] with > "unsubscribe" as the Subject > archives at http://www.lazarus.freepascal.org/mailarchives >
