From: <ob...@us...> - 2008-09-04 11:47:03
|
Revision: 11884 http://jvcl.svn.sourceforge.net/jvcl/?rev=11884&view=rev Author: obones Date: 2008-09-04 11:47:01 +0000 (Thu, 04 Sep 2008) Log Message: ----------- Mantis 4432: Added HTTPStatus to the HTTP grabbers so that user can get the HTTP returned status (200, 404, 301...). Modified Paths: -------------- trunk/jvcl/run/JvUrlGrabbers.pas Modified: trunk/jvcl/run/JvUrlGrabbers.pas =================================================================== --- trunk/jvcl/run/JvUrlGrabbers.pas 2008-09-03 23:22:05 UTC (rev 11883) +++ trunk/jvcl/run/JvUrlGrabbers.pas 2008-09-04 11:47:01 UTC (rev 11884) @@ -163,6 +163,7 @@ TJvHttpUrlGrabber = class(TJvProxyingUrlGrabber) private FReferer: string; + FHTTPStatus: string; protected function GetGrabberThreadClass: TJvCustomUrlGrabberThreadClass; override; procedure DoStatus; override; @@ -172,6 +173,9 @@ class function GetDefaultPropertiesClass: TJvCustomUrlGrabberDefaultPropertiesClass; override; class function GetSupportedProtocolMarker: string; override; class function GetSupportedURLName: string; override; + + // The status (200, 404, 301) as returned by the HTTP server. + property HTTPStatus: string read FHTTPStatus; published property Referer: string read FReferer write FReferer; property UserName; @@ -838,6 +842,12 @@ dwIndex := 0; dwBufLen := 1024; GetMem(Buffer, dwBufLen); + + HttpQueryInfo(hDownload, HTTP_QUERY_STATUS_CODE , Buffer, dwBufLen, dwIndex); + Grabber.FHTTPStatus := Buffer; + + dwIndex := 0; + dwBufLen := 1024; HasSize := HttpQueryInfo(hDownload, HTTP_QUERY_CONTENT_LENGTH, Buffer, dwBufLen, dwIndex); if Terminated then Exit; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-02-23 08:37:33
|
Revision: 13201 http://jvcl.svn.sourceforge.net/jvcl/?rev=13201&view=rev Author: obones Date: 2012-02-23 08:37:27 +0000 (Thu, 23 Feb 2012) Log Message: ----------- Mantis 5719 : FContinue should never have existed as it is present in the ancestor Modified Paths: -------------- trunk/jvcl/run/JvUrlGrabbers.pas Modified: trunk/jvcl/run/JvUrlGrabbers.pas =================================================================== --- trunk/jvcl/run/JvUrlGrabbers.pas 2012-02-23 08:30:47 UTC (rev 13200) +++ trunk/jvcl/run/JvUrlGrabbers.pas 2012-02-23 08:37:27 UTC (rev 13201) @@ -237,7 +237,6 @@ TJvHttpUrlGrabberThread = class(TJvCustomUrlGrabberThread) protected - FContinue: Boolean; function GetGrabber: TJvHttpUrlGrabber; procedure Grab; override; public @@ -756,7 +755,7 @@ begin Buffer := nil; - FContinue := True; + Continue := True; hSession := nil; hHostConnection := nil; hDownload := nil; @@ -873,7 +872,7 @@ if HasSize then begin dwBytesRead := 1; - while (dwBytesRead > 0) and not Terminated and FContinue do + while (dwBytesRead > 0) and not Terminated and Continue do begin if not InternetReadFile(hDownload, @Buf, SizeOf(Buf), dwBytesRead) then dwBytesRead := 0 @@ -890,7 +889,7 @@ end; SetGrabberStatus(gsStopping); - if FContinue and not Terminated then + if Continue and not Terminated then Synchronize(Ended); end else @@ -907,7 +906,7 @@ end; SetGrabberStatus(gsStopping); - if FContinue and not Terminated then + if Continue and not Terminated then Synchronize(Ended); end; except This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |