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]
Пасибо большое, выручил ;)
Отлично работает, а главное резво %)

> [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

Твой гораздо быстрее. ;) Хотя хз =/

>[13] Westbronx 13-Oct-2006, 02:41
>Ну нескажи, я тут есчё один пример нарыл: http://www.vr-
>online.ru/topic.php?id=3722
никогда больше не говори здесь, что ходишь туда. бить будут. возможно, ногами. %-)

← →
Westbronx (2006-10-13 06:01) [15]

html в memo Найти похожие ветки