работа с idhttp

[god5]

Использую вот этот код для скачки файлов:

PHP код:

function GetInetFile(const fileURL, FileName: String; Progress: TProgressBar): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
   Result:=False;
   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
         nil, nil, 0);
   try
      Progress.Max:= SizeOf(Buffer);
      hURL := InternetOpenURL(hSession,
      PChar(fileURL),nil,0,0,0);
      try
         AssignFile(f, FileName);
         Rewrite(f,1);
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen)
         until BufferLen = 0;
         CloseFile(f);
         Result:=True;
      finally
      InternetCloseHandle(hURL);
      Progress.Position:= SizeOf(Buffer);
      end
   finally
   InternetCloseHandle(hSession);
   end
end; 


PHP код:

if GetInetFile('http://delphi-city.narod.ru/Project1.exe', 'Inet.exe', ProgressBar1)
   then ShowMessage('Скачка завершина'); 


все файлы загружает нормально за исключением exe - он то скачивает но размер файла 1 кб! при открытии пишет файл не совместимы с вашей версии windows !
сама винда у меня 7 64x
сборка delphi -XE3 в чем может быть проблемма)?
если что то оформил не так извините на форуме новичок)

[Rakim4ik]

Была аналогичная проблема, но только на autoit.
Попробуй его скачивать не в exe, а zinn.
А после скачки менять формат на exe. Естественно программно )

[god5]

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

Была аналогичная проблема, но только на autoit.
Попробуй его скачивать не в exe, а zinn.
А после скачки менять формат на exe. Естественно программно )

спасибо)

в принципе сделал)работает) но почему так)? и почему на любой exe !
можешь пожалуйста просто примерчик реализации скачки может че не то делаю)

[Mifody]

антивирь пробовал отключать?
частенько он "мешается"

[god5]

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

антивирь пробовал отключать?
частенько он "мешается"

да когда работаю в delphi обычно вырубаю ! вот не знаю почему exe не качает!

[Delphi_ProGer]

В названии темы "работа с idhttp", в самой теме нету про инди ничего...
Вм нужно только через WinInet?

[god5]

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

В названии темы "работа с idhttp", в самой теме нету про инди ничего...
Вм нужно только через WinInet?

безразницы!
я пробовал и через WinInet и через idhttp ниче не выходит скорее всего исходники левые у меня ) у же 2 недели не могу найти !нужно тупо скачать exe с моего хостинга(сайта) на диск C )

[Slym]

function GetInetFile(const fileURL, FileName: String; Progress: TProgressBar): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  DataSize,BufferLen: DWORD;
  Stream:TFileStream;
begin
  Result:=False;
  hSession := InternetOpen(PChar(ExtractFileName(Application.ExeName)), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,0,0);
    try
      DataSize:= 0;
      BufferLen:= sizeof(DataSize);
      if HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER,
        @DataSize,BufferLen,PDWORD(nil)^) then
        begin
          Progress.Max:=DataSize;
          Progress.Position:=Progress.Min;
        end;
      Stream:=TFileStream.Create(FileName,fmCreate);
      try
        repeat
          InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
          Stream.WriteBuffer(Buffer, BufferLen);
          Progress.StepBy(BufferLen);
          Application.ProcessMessages;
        until BufferLen = 0;
        Result:=True;
      finally
        Stream.Free;
      end;
    finally
      InternetCloseHandle(hURL);
      Progress.Position:= SizeOf(Buffer);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetInetFile('http://www.rarlab.com/rar/winrar-x64-420ru.exe', 'winrar-x64-420ru.exe', ProgressBar1) then
    ShowMessage('Скачка завершена');
end;

[god5]

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

function GetInetFile(const fileURL, FileName: String; Progress: TProgressBar): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  DataSize,BufferLen: DWORD;
  Stream:TFileStream;
begin
  Result:=False;
  hSession := InternetOpen(PChar(ExtractFileName(Application.ExeName)), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,0,0);
    try
      DataSize:= 0;
      BufferLen:= sizeof(DataSize);
      if HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER,
        @DataSize,BufferLen,PDWORD(nil)^) then
        begin
          Progress.Max:=DataSize;
          Progress.Position:=Progress.Min;
        end;
      Stream:=TFileStream.Create(FileName,fmCreate);
      try
        repeat
          InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
          Stream.WriteBuffer(Buffer, BufferLen);
          Progress.StepBy(BufferLen);
          Application.ProcessMessages;
        until BufferLen = 0;
        Result:=True;
      finally
        Stream.Free;
      end;
    finally
      InternetCloseHandle(hURL);
      Progress.Position:= SizeOf(Buffer);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetInetFile('http://www.rarlab.com/rar/winrar-x64-420ru.exe', 'winrar-x64-420ru.exe', ProgressBar1) then
    ShowMessage('Скачка завершена');
end;

увы проблемма такая же может из за того что у меня 64 битная 7)

[Slym]

попробуй в место TFileStream загнать все в TMemoryStream, а в самом конце SaveToFile