{$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
// 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=MOONBEAM238282104841001740&rec_set=I209T234')
then
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=MOONSHIRE10058312319194812000&rec_set=I209T234')
then
begin
writeln('ERROR');
writeln(Http.Resultcode);
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 program returns ERROR 200 for the page specified. Very similar pages
(such as the URL in the previous line which is commented out) on the same
website work just fine. If the URL is pasted into a browser, the page is
returned without any problems.
Any ideas?
----
ASAFP.com
Automation Solutions and Free Programs
-------------------------------------------------------------------------
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
