Ja,
was soll ich sagen, es sieht wirklich so aus, als ob da meine Beschreibung
was verschweigt.
Nachdem ich mir den header genau angesehen habe muss ich Dir absolut Recht
geben, sowohl dad als auch sad und lenr sind wohl pointer.
Also, das alles flux nach bestem Wissen und Gewissen umgesetzt und
siehe da: Keine EAccessviolation mehr !
Aber es funzt immer noch nicht.
Jetzt bekomme ich als Rückmeldung von 65585.
Als letzte Bitte an alle hier noch einmal über die Pointerdefinitionen
zu schauen, da ich dort echt absoluter Anfänger bin:
Delphi-Quellcode:
// Einbinden der Dll Funktion CT_data
function CT_data(ctn:word;dad:pointer;sad:pointer;lenc:word;command:pointer;lenr:pointer;response:pointer):word;
stdcall;
external '
CTORG32.DLL';
procedure TForm1.Button3Click(Sender: TObject);
var
daten:kdaten;
rueckgabe:word;
sad,dad:byte;
lenr:word;
commando:
array of byte;
speicher:
array of byte;
begin
// Select file legt die zu empfangende Datensection fest !
setlength(speicher,22);
setlength(commando,28);
commando[0]:=$00;
commando[1]:=$A4;
commando[2]:=$00;
commando[3]:=$88;
commando[4]:=$02;
commando[5]:=$3F;
commando[6]:=$00;
dad:=02;
sad:=01;
lenr:=28;
rueckgabe:=CT_data(1,@dad,@sad,length(commando),@commando[0],@lenr,@speicher[0]);
showmessage(inttostr(rueckgabe));
end;
Ist das alles logisch ?
Danke und versprochen, ich werde euch dann nicht mehr nerven.
Werde dann alleine weiter kämpfen.
Gruß,
Stephan