var conn: http;
htmlBody: string;
contentType: string;
i: integer;
begin
if not openHttp(conn, 'http://www.mobilepascal.ucoz.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. Эта прога из второго поста накрыла мой LG KE970. После разрешения на соединение с инетом труба повисла, пришлось выдергивать батарейку... потом батарейку вставил, а труба так и не включается...
