VPF::Компоненты ICS - Форум программистов

Zlo

Дата 1.7.2006, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: нет
Всего: 1

Ктонить работал с компонентами ICS (http://www.overbyte.be)
Проблема в следующем: Не могу понять как при помощи компонента HttpCli в Memo загнать код страници?

Yanis

Дата 1.7.2006, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111

Посмотри прилагающиеся к ICS примеры. В частности "ics\Delphi\Internet\OverbyteIcsHttpTst.dpr".

--------------------

*щёлк*

Zlo

Дата 2.7.2006, 01:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: нет
Всего: 1

Да посмотрел, немогу ниче понять! Может есть более простой примерчик?

Дата 2.7.2006, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115

Код






Function ResultData(Data : TStrings; Stream : TMemoryStream);
var
    p, q, r : PChar;
begin
    p := Stream.Memory;
    q := p + Stream.Size;// -1; fixed by Shay Horovitz
    r := p;
    while (p <> nil) and (p < q) do begin
        while (p < q) and (p^ <> #13) and (p^ <> #10) do
            Inc(p);
        Data.Add(Copy({StrPas}(r), 1, p - r));
        if (p[0] = #13) and (p[1] = #10) then
           Inc(p, 2)
        else
           Inc(p);
        r := p;
    end;
end;


...............
var
 DataIn : TMemoryStream;

begin
 
 //Тут всякие темы типа урл, узер агент, и тд.


 DataIn := TMemoryStream.Create;
 HttpCli.RcvdStream  := DataIn;

 try
   HttpCli.Post;
 finally
   ResultData(Memo1.Lines,DataIn);
   DataIn.Free;
 end;

Это сообщение отредактировал(а) RAdmin - 2.7.2006, 22:49

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »