Bedingt Prozedur aufrufen

[oki]

Schreibfehler,

Address mit doppeltem d

dann klappts auch mit dem Nachbarn!

Moin und Gruß oki

[CRoSSi]

Moin thx erstemal für euere antworten ich glaube man kommt der Lösung immer näher es gibt nur noch eine stelle wo er rummeckert.. . Und zwar bei if PortOut <> nil then begin da sagt er "nicht genügend wirkliche parameter". Was kann das sein? Habe die Unit von meinem test Prog auch nochmal kopiert:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
type TPortOut = procedure(Port:Word;Data:Byte); stdcall;

var   PortOut: TPortOut = nil;
      AHandle: THandle = 0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  AHandle := LoadLibrary('io.dll');
  if AHandle <> 0 then begin
    PortOut:= GetProcAddress(AHandle, 'PortOut');
    if PortOut <> nil then begin
      PortOut($378,00);
    end;
    FreeLibrary(AHandle);
  end;
end;

end.

THX schonmal

[oki]

Moin Crossi,

du mußt auch die Beiträge lesen. Muetze1 und ich hatten das drei Beiträge vorher diskutiert. Bei der Abfrage auf nil muß das @ davor.
Schreib es so wie Muetze1 es gesagt hat:
if assigned(PortOut) then oder so:
if @PortOut <> nil then Gruß oki

[CRoSSi]

Jor hatte das @ nach meinem post nochmal probiert und es gehts endlich.. ein dickes Dankeschön an alle die bei diesem Thread mitgeholfen haben