dll einbinden delphi 7 beispiel zugriffsfehler

[chaosben]

Nimm mal bitte nicht var blubber : Char sondern blubber : PChar .
Dadurch kannste das dann fast wie einen String benutzen.

[sneumann]

Zitat von chaosben:

Nimm mal bitte nicht var blubber : Char sondern blubber : PChar .
Dadurch kannste das dann fast wie einen String benutzen.

zum Vorschlag von chaosben:
wenn ich deinen Vorschlag nehme und oben beim deklarieren var weglasse und stattdessen instidstring: PChar (value: Pchar) schreibe, und unten bei den im Aufruf so schreibe

Delphi-Quellcode:

instidstring: Pchar;
value: Pchar;

ANSTATT:
var instidstring: Char {in der Deklaration} var instidstring: Char; {imAufruf} //das gleiche mit value DANN zeigt er mir beim debuggen nicht mal an 'Wert nicht verfügbar', wenn ich im debuggen dann über value oder instidstring rüber gehe zeit er mir garnix an!

Bisher habe ich ja nur geschafft den ersten Char von IDstring (der war 'B' für Burster...etc..) und
der für value (war '-' was auch richtig wäre für -7°). Das geht ja schonmal,also kann ja eig nicht viel falsch sein.
jetzt muss ich das nur noch hinkriegen dass er mir alles ausgibt als String wahrs.

zu himitsu

Zitat von himitsu:

char* value ist zwat "vom Wortlaut" her ein Zeiger auf
phi-Version (oder Lazarus) ...... und was überhaupt möglich ist.

1. Also in dem VB6 Project, was auch funktioniert steht vorher sowas:
instidstring = Space(50) also er macht sozusagen platz für 50 zeichen für den id string bei mir
und für den value der string measure methode legt er vor der funktion
value = Space(20) frei
das muss ich wahrscheinlich bei delphi auch so vorher machen!? Meinst du das?
2.probiere das jetzt beides: einmal mit ansi char und einmal mit Pansichar für Value meinst du ? oder auch für den ID string?
Wenn sich die DLL sozusagen nicht anpassen kann weil es dort ja als char* deklariert ist sozusagen geht das dann überhaupt wenn ich hier in meinem Delphi prog dann es mit ansichar bzw Pansichar versuche

3.Habe bei mir im Profil jetzt Delphi 7 Prof hinzugefügt.


EDIT: Der immerwiederkehrende Zugriffsfehler hängt wahrscheinlich auch damit zusammen ich versuchs mal mit ansichar und pansichar


EDIT 2: Übrigens Value soll ungefähr so aussehen dann : '25,4° Cel'
und instridstring sieht ungefähr so aus 'BursterString id 12316519464 Version 12,343 , 005'

[DeddyH]

Versuch es doch mal in der Art:

Delphi-Quellcode:

var
  Blabb: AnsiString;
begin
  SetLength(Blabb, 300); //oder eine andere zu erwartende maximale Länge
  error := bp4422_read_measure_string(instid, PAnsiChar(Blabb));
  SetLength(Blabb, StrLen(PAnsiChar(Blabb)));

[sneumann]

Zitat von DeddyH:

Versuch es doch mal in der Art:

Delphi-Quellcode:

var
  Blabb: AnsiString;
begin
  SetLength(Blabb, 300); //oder eine andere zu erwartende maximale Länge
  error := bp4422_read_measure_string(instid, PAnsiChar(Blabb));
  SetLength(Blabb, StrLen(PAnsiChar(Blabb)));

also habs jetzt mal so versucht aber auch wieder Wert nicht verfügbar

Delphi-Quellcode:

var 
instidstring: AnsiString;

begin    
SetLength(instidstring, 3);
error := bp4422_init(4,9600,2,0,0,0,AnsiString(instidstring),0,instid);
SetLength(instidstring, StrLen(PAnsiChar(instidstring)));

Wenn ich Setlength mache ist wert nicht verfügbar...
wie muss dann die definition in der deklaration oben sein?
brauch ich die zweite setlenght erst nach der funktionsanweisung? wofür ist die zweite...

vielleicht muss ichs mal irgendiwe mit nem array of char versuchen aber habs auch schon versucht array[1..50] of char in der anweisung und oben einfach nur array of char was gibt es noch für string typen vielleicht oder array die ich ausprobieren könnte um diesen blöden pointer auf ein char array zu kriegen und den wert hinterher richtig rauszuholen

[DeddyH]

Dir fällt aber schon auf, dass wir beide unterschiedliche Dinge tun?

[sneumann]

Zitat von DeddyH:

Dir fällt aber schon auf, dass wir beide unterschiedliche Dinge tun?

ja weiss schon hab bisschen was verändert weil er vorher nicht compiliert hat aber irgendwie hauts net hin ich bin am überlegen das ganze jetzt mit der Komponente T Comport zu realisieren und die serielle Stelle damit anzusprechen und zu kommunizieren aber da öffnet und schließt er den comport auch schon aber das senden der befehle um empfangen haut noch nicht ganz hin...

[DeddyH]

Du bist doch schon nah dran. Nochmal etwas Code, diesmal kommentiert:

Delphi-Quellcode:

function bp4422_init(COMPort: integer; baudRate: integer; timeout_seconds: double; blockCheck: integer; groupAddress: integer; userAddress: integer; instrumentIDString: PChar; resetDevice: integer; var instrumentID: Integer): integer; stdcall; external DLLNAME;

var
  instidstring: AnsiString;
  instid: integer;
begin
  (* Speicher für einen String mit 3 Zeichen reservieren *)
  SetLength(instidstring, 3);
  (* Funktion aufrufen, dabei einen Zeiger auf den String übergeben *)
  error := bp4422_init(4, 9600, 2, 0, 0, 0, PAnsiChar(instidstring), 0, instid);
  (* Nach korrekter Befüllung ist der String u.U. zu lang für den Inhalt, deshalb auf Datenlänge kürzen *)
  SetLength(instidstring, StrLen(PAnsiChar(instidstring)));

Statt mit PAnsiChar(instidstring) kannst Du es auch mit @instidstring[1] versuchen.