Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.29;
Скачать: CL | DM;

Вниз

проблемка с процедурой   Найти похожие ветки 

 
delphi_ ©   (2007-04-09 19:17) [0]

procedure DownloadFile();
const
URL = "http://127.0.0.1/ini.ini";
var
path:string;
Stream: TMemoryStream;
idHTTP1:tidhttp;
begin
path:=ExtractFilePath(Application.exename)+"/tmp/"+"ini.ini";;
 Stream:= TMemoryStream.Create;
  idHTTP1.Get(URL,Stream);
    Stream.SaveToFile(path);
   Stream.Free;
end;

при этом Warning -Variable "idHTTP1" might not be initialized-не понимаю почему,в var оно есть
далее
если сию процедуру вставить в любую другую например

procedure TForm1.Button1Click(Sender: TObject);
begin
DownloadFile();
end;

то вылетает ошибка Access Violation.Если же первую процедуру обозвать например TForm1.Button1Click и далее сам код с idhttp -то все ОК.Почему?


 
delphi_ ©   (2007-04-09 19:38) [1]

вопрос закрыт.create забыль



Страницы: 1 вся ветка

Текущий архив: 2007.04.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.038 c
15-1175448523
den303
2007-04-01 21:28
2007.04.29
Нужен файл из дистриба BDS 06


2-1175983376
Василий Кузнецов
2007-04-08 02:02
2007.04.29
.html


1-1172849311
Ш-К
2007-03-02 18:28
2007.04.29
Хранить интерфейсы в TStrings


15-1175260410
Reaktor
2007-03-30 17:13
2007.04.29
Если свич воткнуть в свич


15-1175158476
Альберт
2007-03-29 12:54
2007.04.29
Уменьшить размер EXE