работа с idhttp

[god5]

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

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

можно код? вообще не получается проект загрузить!

[god5]

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

можно код? вообще не получается проект загрузить!

помогите )? если не получится то пофиг тогда)

[Slym]

какой нафиг код? подумать самому трудно?
заменить строку TFileStream на TMemoryStream
а вконце Stream.SaveToFile(FileName);

[god5]

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

какой нафиг код? подумать самому трудно?
заменить строку TFileStream на TMemoryStream
а вконце Stream.SaveToFile(FileName);

я думаю) я сразу же поменял
TFileStream на TMemoryStream дальше он пишет ошибку на Stream:=TFileStream.Create(FileName ,fmCreate);
меняю данную строку на Stream.SaveToFile(FileName); полсе нажатия на кнопку ошибка на try! что не так)

[god5]

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

какой нафиг код? подумать самому трудно?
заменить строку TFileStream на TMemoryStream
а вконце Stream.SaveToFile(FileName);

PHP код:

 что не так ?)
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,WinInet,XPMan, StdCtrls, ComCtrls,;

type
  TForm1 = class(TForm)
    pb1: TProgressBar;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 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:TMemoryStream;
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.SaveToFile(FileName);
      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.btn1Click(Sender: TObject);
begin
 if GetInetFile('http://godim.p.ht/te.exe', 'te.exe', Pb1) then
    ShowMessage('Ñêà÷êà çàâåðøåíà');
end;

end. 


[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:TMemoryStream;
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:=TMemoryStream.Create;
      try
        repeat
          InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
          Stream.WriteBuffer(Buffer, BufferLen);
          Progress.StepBy(BufferLen);
          Application.ProcessMessages;
        until BufferLen = 0;
        Stream.SaveToFile(FileName);
        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]

Спасибо!)))_