Delphi бьет скачиваемые файлы.

[Кортана]

Приветствую.
Проблема такова: есть вот такой код, загружающий с сервера самораспаковывающийся SFX-архив:

var
D : TMemoryStream;
begin
D := TMemoryStream.Create();
IdHTTP1.Get('http://адрес сервера', D);
D.SaveToFile('filename.exe');
D.Free; 
end;

Однако, когда я пытаюсь запустить скачанный файл, он запускаться отказывается, вылетает сообщение об ошибке и т.д. Хотя когда до того как я его загрузила на сервер (т.е. только создала) все было нормально.

[Stilet]

var
D : TFileStream;
begin
D := TFileStream.Create('filename.exe',fmCreate);
IdHTTP1.Get('http://адрес сервера', D);
D.Free; 
end;

Подходит?

он запускаться отказывается

Не исключаешь возможность что он для твоей ОСи не подходит?

[Кортана]

Не исключаешь возможность что он для твоей ОСи не подходит?

Исключаю. Ибо:

Хотя когда до того как я его загрузила на сервер (т.е. только создала) все было нормально.

[superedward]

Я файло скачиваю так:

function DownloadFile(const AppName,FileURL,FileName: string): cardinal;
var
  hSession,hFile: HInternet;
  Buffer: array[1..1024]of Byte;
  BufferLen,fSize: LongWord;
  f: File;
begin
 Result:=0;
 hSession:=InternetOpen(PChar(AppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
 if Assigned(hSession)then begin
  hFile:=InternetOpenURL(hSession,PChar(FileURL),nil,0,INTERNET_FLAG_RELOAD,0);
  if Assigned(hFile)then begin
   AssignFile(f,FileName);
   Rewrite(f,1);
   fSize:=0;
   repeat
    InternetReadFile(hFile,@Buffer,SizeOf(Buffer),BufferLen);
    BlockWrite(f,Buffer,BufferLen);
    fSize:=fSize+BufferLen;
   until BufferLen=0;
   CloseFile(f);
   Result:=fSize;
   InternetCloseHandle(hFile);
  end;
  InternetCloseHandle(hSession);
 end;
end;

[Slym]

Когда вы забудете file? - это паскалевский рудимент... в генофонде пользуют TFileStream и ты пользуй. тот же код только на стреме
http://www.programmersforum.ru/showp...97&postcount=8

[Stilet]

Исключаю.

Мой пример не помог?

[Alex2009]

var
D : TMemoryStream;
begin
D := TMemoryStream.Create;
IdHTTP1.Get('http://вашсайт/filename.exe', D); <=== полный путь до файла
D.SaveToFile('filename.exe');
D.Free; 
end;

[Кортана]

Мой пример не помог?

Не помог.

var
D : TMemoryStream;
begin
D := TMemoryStream.Create;
IdHTTP1.Get('http://вашсайт/filename.exe', D); <=== полный путь до файла
D.SaveToFile('filename.exe');
D.Free; 
end;

М-м-м, вообще-то я так и делаю))))

[Stilet]

<=== полный путь до файла

Это с какого перепугу?

[Alex2009]

Сообщение от Stilet

Это с какого перепугу?

Вы хотите сказать что я не прав? Хмм...да возможно репутация у нас с вами отличается, возможно вы больше меня разбираетесь в делфи. Но вы бы во первых не флудили, во вторых я нечего не вижу такого что вас так взволновало в моем ответе!

М-м-м, вообще-то я так и делаю))))

Можно узнать адрес по которому вы пытаетесь скачать файл? Возможно если это сервер то лучше использовать idFTP.