Скачивания файла

[designer999]

вот ниже сделал но в чём ошибка не знаю ?

[Delfiec]

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

вот нашол, но
1.как сделать так что бы можно было выбрать путь для сохранения?
и 2.как отобразить ход скачивания?
помогите плиз

1. Путь выбрать можно через TOpendialog,после этого его значение кидаешь в GetInetFile(const fileURL, FileName: String): boolean;
Там будет что-то form1.Opendialog1.Text.
form1 указать обязательно это на какой форме есть компонент.
2.Если отобразить через progressbar то кидаешь на форму сам компонент
и в коде пишешь.

PHP код:

PChar(fileURL),nil,0,0,0);
try
.......{--Найдем размер файла--}
if not HttpQueryInfo( hURL, HTTP_QUERY_CONTENT_LENGTH, @lpBuf, BufferLen, PDWORD( nil )^ ) then
      FileSize := 1
   else
      FileSize:=round(StrToInt( lpBuf)/100);
.........
........
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;

{--Методом деления измеряем длину шага.--}
form1.ProgressBar1.Position := round(fsize/filesize);
CloseFile(f);
Result:=True;
finally 


[FanAnnGeL]

Тоже пытался реализовать но как то не получакеться сделать

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,URLMon, ShellApi, ComCtrls, StdCtrls;



type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;


    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public


    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
const 
  // URL Location
  SourceFile = 'http://name.rar';
  // Where to save the file 
  DestFile = 'C:\name.rar';
begin
  if DownloadFile(SourceFile, DestFile) then 
  begin 
    ShowMessage('Download succesful!'); 
    // Show downloaded image in your browser 
    ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
      PChar(''), nil, SW_NORMAL)
  end
  else 
    ShowMessage('Error while downloading ' + SourceFile) 

end;

 PChar(fileURL),nil,0,0,0);
try
//Найдем размер файла
if not HttpQueryInfo( hURL, HTTP_QUERY_CONTENT_LENGTH, @lpBuf, BufferLen, PDWORD( nil )^ ) then
      FileSize := 1
   else
      FileSize:=round(StrToInt( lpBuf)/100);
.........
........
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
//Методом деления измеряем длину шага
form1.ProgressBar1.Position := round(fsize/filesize);
CloseFile(f);
Result:=True;
finally



end. 


Если кто поможет буду благодарен ))

[uberchel]

Вот, пример с тем кодом который вам давали, можно и самому было подумать!

[FanAnnGeL]

спасибо !!!!

[designer999]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, URLMon, ShellApi, ComCtrls, StdCtrls, ExtCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Gauges,
IdExplicitTLSClientServerBase, IdFTP;

const
MY_MESS = WM_USER + 100;


type
TForm1 = class(TForm)
Button1: TButton;
idhtp1: TIdHTTP;
Gauge1: TGauge;
IdFTP1: TIdFTP;
procedure idhtp1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure idhtp1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
procedure Button1Click(Sender: TObject);
procedure idhtp1Authorization(Sender: TObject;
Authentication: TIdAuthentication; var Handled: Boolean);
private
{ Private declarations }
public
procedure MyProgress(var msg:TMessage); message MY_MESS;
{ Public declarations }
end;

type
TMsgRecord = record
thread : Integer;
msg : string[30];
end;

var
Form1: TForm1;

id1 : LongWord;
thread1 : Integer;
msg1 : TMsgRecord;
Rect : TRect;

implementation
uses FileCtrl;
{$R *.dfm}


procedure TForm1.MyProgress(var msg: TMessage);
begin
case msg.WParam of
0: begin
Gauge1.MaxValue := msg.LParam;
Gauge1.Progress := 0;
end;
1: Gauge1.Progress := msg.LParam;
end;
end;

procedure TForm1.idhtp1Authorization(Sender: TObject;
Authentication: TIdAuthentication; var Handled: Boolean);
begin

end;

procedure TForm1.idhtp1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
PostMessage(Handle, MY_MESS, 1, AWorkCount);
end;

procedure TForm1.idhtp1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
PostMessage(Handle, MY_MESS, 0, AWorkCountMax);
end;

procedure LoadFile;
var
M: TMemoryStream;

begin
M:= TMemoryStream.Create;
try
begin
Form1.idhtp1.Get('http://fanangel.jino.ru/project1.rar', M);
M.SaveToFile('D:\project1.rar');
M.Free;
end;
except
ShowMessage('Error download file');
Exit;
end;
ShowMessage('Файл успешно закачан');


end;


procedure TForm1.Button1Click(Sender: TObject);
begin
msg1.thread := 1;
thread1:=BeginThread(nil,0,@LoadFil e,@msg1,0,id1);
CloseHandle(thread1);
end;


end.

Спасибо, вроде работает но если скачиваю файл в несколько метров загрузка не отображается, если скачиваю картинку то всё норм в чём может быть баг или ошыбка ????