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