Bedingt Prozedur aufrufen

[Muetze1]

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;