Zitat von
oki:
So wird ein Schuh draus:
Bezweifle ich. Du machst einen Aufruf der Procedure beim Zuweisen mit GetProcAddress und du rufst die Funktion innerhalb der If Anweisung auf. Da meckert beide male der Compiler. Er hatte es schon richtig.
Die Frage ist eher: Was klappt nicht? Passiert einfach nichts? Da ist dann die Frage: kann er die
DLL nicht laden oder den Export in der
DLL nicht finden?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
AHandle := LoadLibrary('
io.dll');
if AHandle <> 0
then
begin
@PortOut := GetProcAdress(AHandle, '
PortOut');
if assigned(PortOut)
then
begin
PortOut($378,255);
end
else
ShowMessage('
Funktion in der DLL nicht gefunden!');
FreeLibrary(AHandle);
end
else
ShowMessage('
DLL nicht gefunden!');
end;