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..