yes, i have a LHTTPClientError event.
no error occurred, it looks like program called HTTPClientProcessHeaders,
then no data receive.
can suggest some sniffer tools(for win xp)
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
>
