Вот рабочий код:
var conn: http;
htmlBody: string;
contentType: string;
i: integer;
begin
if not openHttp(conn, 'http://www.s-c.ru') then halt;
setHttpMethod(conn, GET);
addHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
i:=sendHttpMessage(conn);
i:=formaddstring('code: '+i+chr(10));
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
i:=formaddstring(htmlBody);
showform;
closeHttp(conn);
delay(20000);
end.
ЗЫ: При подключении к
http://www.boolean.name выдает ошибку 302. Аналогично
http://www.google.com , а
http://www.google.ru нормально (т.е. код 200).