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

[macomics]

Возможно из-за того, что dll и exe файлы лежать в разных папках после компиляции и он не может найти по указанным путям ни одной подходящей dll с именем Project1.dll

[leon2009sp]

я могу сделать видео = Project1.dll закачал в месте с ехе 64.
я подумал что это write и wite64

[macomics]

Так вы dll файл переименовали? Тогда надо и в exe файле исправить экспортную строку для функции из этой библиотеки.

[leon2009sp]

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

var
  Form1: TForm1;   Canceled: Boolean;
  LibHandle: THandle;
  function LoadFile(var MemoryStream: TMemoryStream; const FileName: string; cbProgress: TCallBack):string; external 'Project1.dll' index 1;

implementation

{$R *.dfm}

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;

Project1.dll я и так и так пробовал. название одинаковое Project1.dll

function LoadFile(var MemoryStream: TMemoryStream; const FileName: string; cbProgress: TCallBack):string; external 'Project1.dll' index 1;

[leon2009sp]

не может найти файл на 64б.еще если код стоит в низу:

Form1.ProgressBar1.Position := Curr * 100 div Max;
   Application.ProcessMessages;

начинает ругаться на

LoadFile(MS, FileName, @cbProgress);

[leon2009sp]

function LoadFile:string;
var str:string;
  begin
  str:='111111';
   // Result:='HelloFromDLL_leon';
  end;
exports
  LoadFile index 1;

и принимаю:

 function LoadFile:string; external 'project1.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(LoadFile);
end;

почему result передается, а str пустое окно?

[leon2009sp]

понял: LoadFile:='rrrrrrrrrrr';
а три параметра??? string, integer, и поток?

[leon2009sp]

 function LoadFile(const FileName: TFileName; s:TStrings):boolean;
var
 MemStr: TMemoryStream;
 Title: String;  i:integer ;
begin
MemStr:= TMemoryStream.Create;
 try
  MemStr.LoadFromFile(FileName);
  MemStr.Seek(0, soFromBeginning);
 //ReadStreamStr( MemStr );
 s.LoadFromStream(MemStr);
 result:= true;
  finally
   MemStr.Free;
  end;
end;

и

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadFile('test.txt', memo1.Lines);
end;

но получается я два раза загружаю файл