Einzelnen Beitrag anzeigen

schlagzu

Registriert seit: 11. Okt 2010
86 Beiträge
 
Delphi XE Starter
 
#3

AW: Problem mit Aufruf einer Funktion in externen dll

  Alt 13. Aug 2011, 20:15
Danke, das war der Fehler, aber jetzt kommt ein weiter Problem.
Ich glaube ich mach wieder was falsch beim Aufruf, alle Funktionen laufen, nur die schreiben nicht.

Delphi-Quellcode:
function DISPLAYDLL_Init(SizeX,SizeY : byte; s : pansichar; OK : pboolean) : pansichar; stdcall; external 'matrix.dll';
function DISPLAYDLL_Done:pansichar; stdcall; external 'matrix.dll';
procedure DISPLAYDLL_Write(Str : pansichar); external 'matrix.dll';
function DISPLAYDLL_DefaultParameters:pansichar; stdcall; external 'matrix.dll';
function DISPLAYDLL_SetPosition(x,y:byte):pansichar; stdcall; external 'matrix.dll';
procedure DISPLAYDLL_SetBrightness(Brightness : byte); stdcall; external 'matrix.dll';
procedure DISPLAYDLL_SetContrast(Contrast : byte); stdcall; external 'matrix.dll';
procedure DISPLAYDLL_SetGPO(GPO : byte; GPOOn : boolean); stdcall; external 'matrix.dll';
procedure DISPLAYDLL_SetFan(T1,T2 : byte); stdcall; external 'matrix.dll';
procedure DISPLAYDLL_SetBacklight(LightOn : boolean); stdcall; external 'matrix.dll';
procedure DISPLAYDLL_CustomChar(Chr : byte; Data : TCustomArray); stdcall; external 'matrix.dll';
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
Var s:string;
begin
  DISPLAYDLL_SetPosition(1,1);
  s:=Edit1.Text;
  DISPLAYDLL_Write(PAnsichar(s));
end;
Bitte schaut noch einmal drüber, sicher wieder nur ne Kleinigkeit.

MfG schlagzu
  Mit Zitat antworten Zitat