VPF::WinInet.dll - Форум программистов

altarasjuk

Дата 14.6.2003, 16:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Всем привет!
У меня есть маленькая проблема: или я свихнулcя

или тут чего-то не того делаю.
Вот код:

Код



uses wininet.pas //вроде как стандартный делфёвый модуль

procedure TExchange.DoExchage();
var
  req: TStringStream;
  res: TStringStream;
  http: TIdHTTP;
begin
  fExchangeOk:= False;
  http:= TIdHTTP.Create(nil);
  try
    req:= TStringStream.Create(Win1250ToISO_8859_2(fRequest.GetXML));
    res:= TStringStream.Create('');
    if not Connect then
      Exit; 
    http.Post(CPreferences.StrServerAddress, req, res);
    fExchangeOk:= fResponse.ProcessXML(ISO_8859_2ToWin1250(res.DataString));
  finally
    http.Free;
    req.Free;
    res.Free;
  end;
end;

function TExchange.Connect: Boolean;
var
  connFlag: LPDWORD;
  ret: BOOL;
begin
  ret:= InternetGetConnectedState(connFlag, 0);
  if not ret then begin
    ret:= InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, GetWindowHandle);
  end;
  Result:= ret;
end;

Так вот.
Если вызывать метод connect(), то кода делаешь TExchange.Free - получаю access voilation.
Если его не вызывать, то всё нормально отрабатывает.
Вопрос: ПОЧЕМУ

Это сообщение отредактировал(а) altarasjuk - 14.6.2003, 16:27

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

Правда - изобретение маньяков: колет глаза и режет уши.

<Spawn>

Дата 16.6.2003, 12:11 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

А может нужно сначала правильно закрыть соединение?

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

altarasjuk

Дата 16.6.2003, 18:00 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

А может нужно сначала правильно закрыть соединение?

Какое? Весь и прикол в том, что если не вызывать метод connect, то TExchange.Free работает нормально, а иначе access voilation именно на free....

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

Правда - изобретение маньяков: колет глаза и режет уши.

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