Форум: "Начинающим";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Вниз
html в memo Найти похожие ветки
← →
Westbronx (2006-10-12 23:44) [0]Привет. Подскажите, как можно загрузить исходник html страницы, в tmemo?
раньше не работал с сетевыми компонентами, и чесно говоря даже представления не имею, как это сделать. спасибо.
← →
Kolan © (2006-10-12 23:46) [1]LoadFromFile ?
← →
Westbronx (2006-10-12 23:50) [2]Kolan © (12.10.06 23:46) [1]
Memo1.Lines.LoadFromFile("http://delphimaster.net/view/2-1160682299/");
//не может открыть фаил
← →
Kolan © (2006-10-13 00:12) [3]
TWebBrowserпосмотри
← →
Zeqfreed © (2006-10-13 00:17) [4]> [3] Kolan © (13.10.06 00:12)
Ты все не то советуешь. Автору надо взять TTcpSocket в руки и всех делов.
← →
Kolan © (2006-10-13 00:18) [5]
> Zeqfreed © (13.10.06 00:17) [4]
Каюсь :)
← →
Westbronx (2006-10-13 00:23) [6]Zeqfreed © (13.10.06 00:17) [4]
как мне его использовать?
← →
Westbronx (2006-10-13 00:25) [7]м, у мну его нету, есть TTcpServer, то?
← →
Zeqfreed © (2006-10-13 00:28) [8]> [7] Westbronx (13.10.06 00:25)
Скорее TTcpClient :) Фильм досмотрю — смогу написать примерчик, но думаю ты и сам справишься, если постараешься.
← →
Westbronx (2006-10-13 00:30) [9]Zeqfreed © (13.10.06 00:28) [8]
Буду старатся, но от примерчика, я бы всё равно не отказался.
Спасибо. ;)
← →
Zeqfreed © (2006-10-13 01:28) [10]
procedure TForm1.Button1Click(Sender: TObject);
const
request = "GET /cgi-bin/forum.pl?id=1160682299&n=18 HTTP/1.1" + CRLF +
"Host: delphimaster.ru" + CRLF +
"Connection: close" + CRLF;
var
headers, body : String;
begin
with Sockets.TTcpClient.Create(nil) do begin
try
RemoteHost := "delphimaster.ru";
RemotePort := "80";
Connect();
if not Connected then Exit;
SendLn(request);
headers := ReceiveLn(CRLF + CRLF);
body := ReceiveLn(CRLF + CRLF);
Disconnect();
Memo1.Text := "Headers:"#13#10 + headers + #13#10 + "Body:"#13#10 + body;
finally
Free;
end;
end;
end;
Вот в общем-то :) Ничего сложного, как видишь.
← →
Westbronx (2006-10-13 01:41) [11]Zeqfreed © (13.10.06 01:28) [10]
Пасибо большое, выручил ;)
Отлично работает, а главное резво %)
← →
Zeqfreed © (2006-10-13 01:46) [12]> [11] Westbronx (13.10.06 01:41)
> Отлично работает, а главное резво %)
Это больше зависит от скорости соединения, чем от кода.
← →
Westbronx (2006-10-13 02:41) [13]Zeqfreed © (13.10.06 01:46) [12]
Ну нескажи, я тут есчё один пример нарыл: http://www.vr-online.ru/topic.php?id=3722
Твой гораздо быстрее. ;) Хотя хз =/
← →
Ketmar © (2006-10-13 03:18) [14]>[13] Westbronx 13-Oct-2006, 02:41
>Ну нескажи, я тут есчё один пример нарыл: http://www.vr-
>online.ru/topic.php?id=3722
никогда больше не говори здесь, что ходишь туда. бить будут. возможно, ногами. %-)
← →
Westbronx (2006-10-13 06:01) [15]Ketmar © (13.10.06 03:18) [14]
впервые по яндексу попал, чесно, я не хотел %)
← →
Kolan © (2006-10-13 10:13) [16]
> Ketmar © (13.10.06 03:18) [14]
А што это за место такое страшное?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.093 c
