I tried this simple test program on Windows and now on Mepis (Debian).
One URL is retrieved successfully. Another similar URL fails with resultcode
200.
At first I thought it might be a firewall or antispyware issue on Windows, but
I get
the exact same result on Debian.
Run on same computer. Both with dialup connection (different modems).
At least one person here has run the program without error.
I am stumped.
--------------------------------------------------------------
{$MODE DELPHI}
Program testhttp;
uses
httpsend, classes;
var
HTTP: THTTPSend;
l: tstringlist;
begin
HTTP := THTTPSend.Create;
l := TStringList.create;
try
// if not HTTP.HTTPMethod('GET', Paramstr(1)) then
// following URL retrieved OK
// if not HTTP.HTTPMethod('GET',
'http://www.ocpafl.org/pls/webappI/get_parcel_by_addr?s_name=moon&s_num=&s
_dir=&max_row=234&set_number=26&s_type=&query_data=1111111A&next_row=MOONB
EAM238282104841001740&rec_set=I209T234') then
// following URL returns ERROR 200 and no data
if not HTTP.HTTPMethod('GET',
'http://www.ocpafl.org/pls/webappI/get_parcel_by_addr?s_name=moon&s_num=&s
_dir=&max_row=234&set_number=226&s_type=&query_data=1111111A&next_row=MOON
SHIRE10058312319194812000&rec_set=I209T234') then
begin
writeln('ERROR');
writeln(Http.Resultcode);
writeln(Http.Resultcode, ' ', Http.Resultstring);
end
else
begin
writeln(Http.Resultcode, ' ', Http.Resultstring);
writeln;
writeln(Http.headers.text);
writeln;
l.loadfromstream(Http.Document);
writeln(l.text);
end;
finally
HTTP.Free;
l.free;
end;
end.
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
