Процедура! Нужно код сделать процедурой : )

[JasperCRT]

Алоха)! У меня просьба к знающим людям будьте добры не откажите! : )
Я в программирование новичек и с процедурами знаком плохо! Вся литература которую я прочитал до этого ничего нового мне не принесла!
Короче есть код нужно его сделать процедурой и заснуть в DLL.
Вот код (я пытался сделать его процедурой но не получилось):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure upload;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure Upload;
var F:TFileStream;
begin
F:=TFileStream.Create('c:\temp\google-image.gif', fmCreate);
 idHTTP1.Get('http://www.google.com/intl/de/images/home_title.gif',f);
 F.Free;
end;

end.

Если можно прокомментируйте свои действия) Спасибо всем кто поможет!)

[JasperCRT]

При компилирование он Delphi подчеркивает idHTTP1 и пишет что она не определена (или что-то в этом роде). Хотя в типах она стоит)

[AlDelta]

procedure TForm1.Upload;
var F:TFileStream;
begin
F:=TFileStream.Create('c:\temp\google-image.gif', fmCreate);
 idHTTP1.Get('http://www.google.com/intl/de/images/home_title.gif',f);
 F.Free;
end;

[Alex2391]

Я точно не знаю есть ли разница в Delphi между строчными и заглавными именами переменных?

var F:TFileStream;

Объявляете заглавную F, а используете строчную:

idHTTP1.Get('http://www.google.com/intl/de/images/home_title.gif',f);

[JasperCRT]

[Error] Unit1.pas(29): Undeclared identifier: 'idHTTP1'
[Error] Unit1.pas(25): Undeclared identifier: 'Upload'
Вот это он показывает когда делаю способом AlDelta!
Аекс) Почитай основы программирования) Любые) Регистр не оказывает влияние на разность переменных)

[JasperCRT]

Сорри всё работает) забыл в типы процедуру прописать)

[Alex2391]

Регистр не оказывает влияние на разность переменных)

В C++ оказывает влияние! Я про Delphi не был уверен.

[JasperCRT]

С++ не изучал пока) Надо с низами разобраться а потом и выше можно карабкаться)

[Человек_Борща]

Основной модуль(Лоадер):

unit MainUnit;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

procedure DownloadFile(fURL, fDest: PChar); stdcall; external 'DF.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  dllHandle: THandle; //Хэндл dll
  p:Pointer; //Указатель на эксп. .процедуру
begin
  dllHandle := LoadLibrary('DF.dll'); //загружаем нажу библу
  if dllHandle <= 0 then
  begin
    ShowMessage('Can not load df.dll'); //Ули неудалось загрузить
  end
  else
  begin
    p := GetProcAddress(dllHandle, 'DownloadFile'); //Получаем указатель на роцедуру
    if Assigned(p) then //Если получено
    begin
      DownloadFile(PAnsiChar(Edit1.text), PAnsiChar(Edit2.Text)); //Выполняем код
      if FileExists(Edit2.Text) then
        ShowMessage('Получено')
      else
        ShowMessage('Не получено');
    end;
  end;
  FreeLibrary(dllHandle); //Отваливаем
end;

end.

DLL (то что грузим):

library DF;

uses
  ShareMem,
  SysUtils,
  Classes,
  IdHTTP, //Ради idhttp
  StdCtrls;

{$R *.res}

procedure DownloadFile(fURL, fDest: PChar);stdcall;
var
  http: TIdHTTP;
  dFile: TMemoryStream;
begin
  http := TIdHTTP.Create(nil); //создаём экземпляр http
  dFile := TMemoryStream.Create; //сюда будем качать
  try
    http.Get(fURL, dFile); //получаем файл в поток
    dFile.SaveToFile(fDest); //Сохраняем файл
  finally
    FreeAndNil(dFile); //осваливаем
    FreeAndNil(http);
  end;
end;

exports
  DownloadFile;

begin
end.

писал на коленке.

[XerSon]

А как прикрутить прогресс в Основном модуле (Лоадер)?