dll automatisch einbinden...

[napstar]

ich glaube ich habs gleich.. doch meine versuche lassen sich nicht compilieren

Delphi-Quellcode:

unit readdll;

interface

uses windows;

type
  TSummenFunktion = function (Vlink: string) : string; stdcall;
  function decrypt(Vlink: string) : string;

implementation

function decrypt(Vlink: string) : string;
var SummenFunktion: TSummenFunktion;
    Handle: THandle;
begin
  Handle:=LoadLibrary(Form1.ListBox1.Selected);
  if Handle <> 0 then begin
    @SummenFunktion := GetProcAddress(Handle, 'decrypt');
    if @SummenFunktion <> nil then begin
      result := SummenFunktion(Vlink);
    end;
    FreeLibrary(Handle);
  end;
end;

end.

geht nicht. kommt folgender fehler

Zitat:

[Pascal Error] readdll.pas(17): E2003 Undeclared identifier: 'Form1'
[Pascal Error] readdll.pas(17): E2066 Missing operator or semicolon
[Pascal Error] readdll.pas(18): E2029 ';' expected but 'IF' found
[Pascal Error] readdll.pas(19): E2003 Undeclared identifier: 'SummenFunktion'
[Pascal Error] readdll.pas(19): E2064 Left side cannot be assigned to
[Pascal Error] readdll.pas(19): E2003 Undeclared identifier: 'Handle'
[Pascal Error] readdll.pas(21): E2003 Undeclared identifier: 'result'
[Pascal Error] readdll.pas(21): E2003 Undeclared identifier: 'Vlink'
[Pascal Error] readdll.pas(24): E2029 '.' expected but ';' found
[Pascal Warning] readdll.pas(25): W1011 Text after final 'END.' - ignored by compiler
[Pascal Fatal Error] main.pas(7): F2063 Could not compile used unit 'readdll.pas'

und wenn ich die Unit1 einbinde kommt ein anderer fehler..

Zitat:

[Pascal Fatal Error] main.pas(7): F2047 Circular unit reference to 'main'

main.pas ist das hauptformular

beide versuche haben nix gebracht..