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
