как упаковать код в dll

[leon2009sp]

Здравствуйте! как код упаковать в dll

procedure TForm1.LoadFile(const FileName: string);
const
  BufferSize = 65536;
var
  StrBuffer: array[0..BufferSize - 1] of Char;
  F: file;
  MemoryStream: TMemoryStream;
  Result, Max, Curr, Progress: Integer;
begin
  AssignFile(F, FileName);
  Reset(F, 1);
  Curr := 0;
  Max := FileSize(F) div BufferSize + 1;
  MemoryStream := TMemoryStream.Create;
  try
    repeat
      BlockRead(F, StrBuffer, BufferSize, Result);
      MemoryStream.Write(StrBuffer, Result);
      Inc(Curr);
      Progress := Curr * 100 div Max;
      ProgressBar1.Position	 := Progress;
      Application.ProcessMessages;
    until Result <= 0;

    MemoryStream.Seek(0, soBeginning);
    Memo1.Lines.LoadFromStream(MemoryStream);
  finally
    MemoryStream.Free;
  end;
  CloseFile(F);
  ProgressBar1.Position	 := 0;
  form1.Caption:='Super DLL: ' + inttostr(Memo1.Lines.Count);
  Button1.Enabled:=true;
 // form1.progressbar4.Position:=0;
 end;

Спасибо!

[macomics]

Создаете проект DLL, вставляете код в него как есть, переименовываете процедуру в LoadFile, а в конце дописываете

exports
  LoadFile index 1;

Еще стоит убрать строки

    Memo1.Lines.LoadFromStream(MemoryStream);
// ...
  ProgressBar1.Position	 := 0;
  form1.Caption:='Super DLL: ' + inttostr(Memo1.Lines.Count);
  Button1.Enabled:=true;
 // form1.progressbar4.Position:=0;

или перенести форму в DLL целиком.

[leon2009sp]

ошибку выдает:
DLL

procedure LoadFile(const FileName: string);
const
  BufferSize = 65536;
var
  StrBuffer: array[0..BufferSize - 1] of Char;
  F: file;
  MemoryStream: TMemoryStream;
  Result, Max, Curr, Progress: Integer;
begin
  AssignFile(F, FileName);
  Reset(F, 1);
  Curr := 0;
  Max := FileSize(F) div BufferSize + 1;
  MemoryStream := TMemoryStream.Create;
  try
    repeat
      BlockRead(F, StrBuffer, BufferSize, Result);
      MemoryStream.Write(StrBuffer, Result);
      Inc(Curr);
      Progress := Curr * 100 div Max;
     // ProgressBar1.Position	 := Progress;
      Application.ProcessMessages;
    until Result <= 0;

    MemoryStream.Seek(0, soBeginning);
  //  Memo1.Lines.LoadFromStream(MemoryStream);
  finally
    MemoryStream.Free;
  end;
  CloseFile(F);
 // ProgressBar1.Position	 := 0;
 // form1.Caption:='dll super ' + inttostr(Memo1.Lines.Count);
 // Button1.Enabled:=true;
 // form1.progressbar4.Position:=0;
 end;
exports
LoadFile index 1;

forma

var
  Form1: TForm1;
  LibHandle: THandle;
  function LoadFile(const FileName: string):string;
  external 'Project1' index 1;
implementation

procedure TForm1.Button1Click(Sender: TObject);

begin
    with OpenDialog1 do
    if Execute then LoadFile(OpenDialog1.FileName);

end;

и если не убирать

 // ProgressBar1.Position	 := 0;
 // form1.Caption:='dll super ' + inttostr(Memo1.Lines.Count);
 // Button1.Enabled:=true;
 // form1.progressbar4.Position:=0;

то только форму к длл ???

[macomics]

Так вы определитесь с функционалом. Естественно вы из функции убрали строки, которые выполняли полезную работу.

Ее можно переделать, передавая в функцию объект TMemoryStream как параметр, в который функция и будет загружать файл, а после можно из этого объекта считать данные в Memo1 на форме.

Или можно вернуть убранные строки и перенести код формы в dll, тогда создание формы придется делать вручную. Но для этого достаточно просто добавить в exports у dll еще одну функцию, которая будет создавать форму и вызвать ее при запуске программы.

[leon2009sp]

т.е. чтобы оставить progressbar в dll нужно в dll перенести форму и по другому ни как:?

[macomics]

Так по алгоритму получается, что не ProgressBar в нем главный. А загрузка файла в Memo.
Если хотите, тогда можете сделать CallBack функцию, которую передавать как параметр в LoadFile и вызывать ее для обновления ProgressBar

type TCallBack = procedure (progress, total: Cardinal);

procedure LoadFile(var MemoryStream: TMemoryStream; const FileName: string; cbProgress: TCallBack);
const
  BufferSize = 65536;
var
  StrBuffer: array[0..BufferSize - 1] of Char;
  F: file;
  Result, Max, Curr, Progress: Integer;
begin
  AssignFile(F, FileName);
  Reset(F, 1);
  Curr := 0;
  Max := FileSize(F) div BufferSize + 1;
//  MemoryStream := TMemoryStream.Create; // ее надо создать до передачи в качестве переменной
  try
    repeat
      BlockRead(F, StrBuffer, BufferSize, Result);
      MemoryStream.Write(StrBuffer, Result);
      Inc(Curr);

      // Progress := Curr * 100 div Max; // Это все будет в cbProgress
      // ProgressBar1.Position	 := Progress;
      // Application.ProcessMessages;
      cbProgress(Curr, Max);

    until Result <= 0;

    MemoryStream.Seek(0, soBeginning);
    // Memo1.Lines.LoadFromStream(MemoryStream); // А это надо будет сделать после вызова функции. Это та самая полезная работа
  finally
    // MemoryStream.Free; // Освобождение надо будет так же сделать после вызова функции LoadFile
  end;
  CloseFile(F);
  cbProgress(0, Max); // ProgressBar1.Position	 := 0;
  //  form1.Caption:='Super DLL: ' + inttostr(Memo1.Lines.Count);
  //  Button1.Enabled:=true;
  // form1.progressbar4.Position:=0;
 end;

exports
  LoadFile index 1;

type TCallBack = procedure (Curr, Max: Cardinal);

var
  Form1: TForm1;
  LibHandle: THandle;
  function LoadFile(var MemoryStream: TMemoryStream; const FileName: string; cbProgress: TCallBack):string; external 'Project1.dll' index 1; // Необходимо точно указывать имя файла во избежании недоразумений.
implementation

procedure cbProgress(Curr, Max: Cardinal);
begin
   Form1.ProgressBar1.Position := Curr * 100 div Max;
   Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MS: TMemoryStream;
begin
    with OpenDialog1 do
      if Execute then begin
         MS := TMemoryStream.Create;
         LoadFile(MS, FileName, @cbProgress);
         Memo1.Lines.LoadFromStream(MS);
         MS.Free;
      end;
end;

[leon2009sp]

почему ругается на 64 битном?

[macomics]

На какие именно строчки ругается и что при это написано в окне сообщений с ошибками.

[leon2009sp]

на 32б работает отлично на 64 = стопорит. если открывать не через delphi напрямую,
то пишет не может найти файл.

[leon2009sp]

нет файла