Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Использование ICS, Информация на русском, примеры 
:(
    Опции темы
Akella
Дата 8.8.2010, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329



Если у кого есть примеры использования, информация на русском, скидывайте в эту тему. К сожалению справка по этом компонентам на английском, но хуже, что она ещё и очень скудная.
http://www.webdelphi.ru/tag/ics/
События компонента THttpCli
Общий обзор компонентов ICS

Это сообщение отредактировал(а) Akella - 8.8.2010, 12:26
PM MAIL   Вверх
Proxin
Дата 8.8.2010, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Поделюсь своим.
Пост/гет запрос в удобной форме.
Код

type
OwnHttpReceiveRec=record
receivedstring:string;
errorcode:word;
end;
var http:thttpcli;
function PostData(url,data:string):ownhttpreceiverec;
var datar:tstringstream;e:exception;
begin
datar:=tstringstream.create('');
try
http.sendstream:=tmemorystream.create;
except begin result.errorcode:=1;exit; end;end;
http.sendstream.write(data[1],length(data));
http.sendstream.seek(0,0);
http.rcvdstream:=datar;
http.url:=url;
try
http.post;
except on e:ehttpexception do begin result.errorcode:=e.errorcode; exit; end; end;
result.receivedstring:=datar.datastring;
result.errorcode:=0;
http.sendstream:=nil;
http.rcvdstream:=nil;
freeandnil(datar);
end;
function GetPage(url:string):ownhttpreceiverec;
var datar:tstringstream;e:exception;
begin
datar:=tstringstream.create('');
//if  then begin result.errorcode:=1; exit; end;
try
http.rcvdstream:=datar;
except begin result.errorcode:=1;exit; end;end;
http.url:=url;
try
http.get;
except on e:ehttpexception do begin result.errorcode:=e.errorcode; exit; end; end;
result.receivedstring:=datar.datastring;
result.errorcode:=0;
http.sendstream:=nil;
http.rcvdstream:=nil;
freeandnil(datar);
end;

PM MAIL   Вверх
Akella
Дата 8.8.2010, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329



Proxin, отформатировал бы код, а
PM MAIL   Вверх
Proxin
Дата 8.8.2010, 17:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



всмысле?
PM MAIL   Вверх
Akella
Дата 10.8.2010, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329



Код

type
  OwnHttpReceiveRec=record
  receivedstring:string;
  errorcode:word;
end;

var
  http:thttpcli;

function PostData(url,data:string):ownhttpreceiverec; var datar:tstringstream;e:exception;
begin
  datar:=tstringstream.create('');
  try
    http.sendstream:=tmemorystream.create;
    except
      begin
        result.errorcode:=1;
        exit;
      end;
    end;

и т.д.

PM MAIL   Вверх
Akella
Дата 13.9.2010, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329



PM MAIL   Вверх
halfhope
Дата 10.3.2011, 07:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Смотрите ниже


Это сообщение отредактировал(а) halfhope - 16.5.2011, 02:40
PM MAIL   Вверх
halfhope
Дата 2.5.2011, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Добавлю ещё оболочку, поновее.... только постом файлы не отправляются, с этим как нибудь сами.
Код


    function  Get           (const URL: string): string;
    function  Post          (const URL: string; Data:TStrings): string;
    function  GetTostream   (const URL: string):TStream;
    function  PostToStream  (const URL: string;Data:TStrings):TStream;
    function  GetAsync      (const URL: string):string;
    function  PostAsync     (const URL: string; Data: TStrings):string;

и аналогично у sslHttpCli

Если вы используете ssl, не забудьте указать в conditional defines - "USE_SSL"

Это сообщение отредактировал(а) halfhope - 6.6.2011, 09:40

Присоединённый файл ( Кол-во скачиваний: 79 )
Присоединённый файл  AsyncHttp.zip 3,79 Kb
PM MAIL   Вверх
Akella
Дата 30.12.2011, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329



PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




[ Время генерации скрипта: 0.1378 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.