VPF::IdHTTP.Post из DLL - Форум программистов

aktuba

Дата 12.10.2006, 15:30 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Вот функция из DLL:

Код


function Post(AUrl, AData: PChar; var ACookie: PChar): PChar; export;
var
  HTTP: TIdHTTP;
  CookieManager: TIdCookieManager;
  Data: TIdMultiPartFormDataStream;
begin
  Result := '';
    if AUrl = '' then Exit;
  HTTP := TIdHTTP.Create;
  CookieManager := TIdCookieManager.Create;
  SetCookie(CookieManager, ACookie);                  <----------- Заносим запомненные куки
  Data := TIdMultiPartFormDataStream.Create;
  SetData(Data, AData);                                         <------------ Заполняем данные для отправки
  if Data.Size <= 0 then Exit;
  try
    with HTTP do
      begin
        ReadTimeout     := 10000;
        ConnectTimeout  := 10000;
        AllowCookies    := True;
        HandleRedirects := True;
        ProtocolVersion := pv1_0;
        ProxyParams.BasicAuthentication:=False;
        Request.ContentLength       := 100;
        Request.ContentRangeEnd     := 0;
        Request.ContentRangeStart   := 0;
        Request.Pragma              := 'no-cache';
        Request.AcceptLanguage      := 'ru';
        Request.BasicAuthentication := False;
        Request.UserAgent           := 'Mozilla/3.0 (compatible; Indy Library)';
        HTTPOptions                 := [];
        CookieManager:=CookieManager;
      end;
    Result := PChar(HTTP.Post(AUrl, Data));     <--------------- Отправка. ВОЗНИКАЕТ ОШИБКА AV!!!
  finally
    GetCookie(CookieManager, ACookie);
    CookieManager.Free;
    Data.Free;
    HTTP.Free;
  end;
end;

Кто-нибудь может помочь разобраться в чем проблема???
smile

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

Romikgy

Дата 12.10.2006, 16:08 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Цитата(aktuba @ 12.10.2006, 14:30

)

SetData(Data, AData); <------------ Заполняем данные для отправки

чет смущает меня эта строка

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

aktuba

Дата 12.10.2006, 16:26 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Вот в ней я как-раз уверен. Там все в норме...
HTTP.Post валится и с заполненными данными, и без данных. А HTTP.Get работает нормально...

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

Snowy

Дата 12.10.2006, 16:33 (ссылка)

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

Загрузка ...

Эксперт

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

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

А ты стрим на начало перемотал?
Data.Position := 0;

aktuba

Дата 12.10.2006, 19:52 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

нет... счас попробую...

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

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