Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

html в memo [D7, XP]

Westbronx © (2006-10-12 23:44:00)
Привет. Подскажите, как можно загрузить исходник html страницы, в tmemo?
раньше не работал с сетевыми компонентами, и чесно говоря даже представления не имею, как это сделать. спасибо.

Kolan (2006-10-13 10:13:00) [1]

> Ketmar © (13.10.06 03:18) [14]

А што это за место такое страшное?

Westbronx (2006-10-13 06:01:00) [2]
Ketmar © (13.10.06 03:18) [14]
впервые по яндексу попал, чесно, я не хотел %)

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

Westbronx (2006-10-13 02:41:00) [4]
Zeqfreed © (13.10.06 01:46) [12]
Ну нескажи, я тут есчё один пример нарыл: http://www.vr-online.ru/topic.php?id=3722

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

Zeqfreed (2006-10-13 01:46:00) [5]
> [11] Westbronx (13.10.06 01:41)

> Отлично работает, а главное резво %)

Это больше зависит от скорости соединения, чем от кода.

Westbronx (2006-10-13 01:41:00) [6]
Zeqfreed © (13.10.06 01:28) [10]
Пасибо большое, выручил ;)
Отлично работает, а главное резво %)

Zeqfreed (2006-10-13 01:28:00) [7]
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 00:30:00) [8]
Zeqfreed © (13.10.06 00:28) [8]
Буду старатся, но от примерчика, я бы всё равно не отказался.
Спасибо. ;)

Zeqfreed (2006-10-13 00:28:00) [9]
> [7] Westbronx (13.10.06 00:25)

Скорее TTcpClient :) Фильм досмотрю — смогу написать примерчик, но думаю ты и сам справишься, если постараешься.

Westbronx (2006-10-13 00:25:00) [10]
м, у мну его нету, есть TTcpServer, то?

Westbronx (2006-10-13 00:23:00) [11]
Zeqfreed © (13.10.06 00:17) [4]
как мне его использовать?

Kolan (2006-10-13 00:18:00) [12]

> Zeqfreed © (13.10.06 00:17) [4]

Каюсь :)

Zeqfreed (2006-10-13 00:17:00) [13]
> [3] Kolan © (13.10.06 00:12)

Ты все не то советуешь. Автору надо взять TTcpSocket в руки и всех делов.

Kolan (2006-10-13 00:12:00) [14]
TWebBrowserпосмотри

Westbronx (2006-10-12 23:50:00) [15]
Kolan © (12.10.06 23:46) [1]
Memo1.Lines.LoadFromFile(' http://www.delphimaster.ru/cgi-bin/forum.pl?id=1160682299&n=18');
//не может открыть фаил

Kolan (2006-10-12 23:46:00) [16]
LoadFromFile ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »