![]() |
|
|
#1
|
|||
|
|||
|
Никто не поделится кодом без сторонних компонентов (вроде IEParser). Пытался так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.add(idhttp1.Get('http://www.google.ru/search?client=opera&rls=ru&q='+edit1.text+'&sourceid=opera&ie=utf-8&oe=utf-8'));
end;Выдает ошибку(EConvertError) Последний раз редактировалось Hack_ERR++, 15.07.2010 в 20:29. |
|
#2
|
|||
|
|||
|
Довольно оригинальная запись :-) А если файл огромный?
В примерах делается так: Код:
...
content:widestring; {можно и string}
...
try
content:=idHttp.Get(url);
{обрабатываешь если надо, к примеру, кодировку
Mlang тебе в помощь}
Memo.Text:=content;
exception
{ лови ошибки}
end; |