Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
39.678 Beiträge
 
Delphi 11 Alexandria
 
#16

AW: DLL Schnitstelle

  Alt 11. Jul 2020, 13:22
bei APIs die man vorher nach der Länge fragt, entsprechend dem vom VB
Delphi-Quellcode:
var S: AnsiString;

S := '';
x := API(nil, 0);
Check(x);
SetLength(S, x);
Check(API(PAnsiChar(S), x));
Result := S;
oder eben nicht fragen, sondern einfach machen
Delphi-Quellcode:
var S: AnsiString; // oder array[0..MAX_LENGTH-1] of AnsiChar;

SetLength(S, MAX_LENGTH);
x := API(PAnsiChar(S), {Length(S)}MAX_LENGTH);
Check(x);
SetLength(S, x);
Result := S;
ich empfehle mal die Dokumentation von der Funktion zu lesen,
oder hier mal von Anderen, die auch sowas machen.
https://docs.microsoft.com/en-us/win...getwindowtexta
https://docs.microsoft.com/en-us/win...odulefilenamea
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (11. Jul 2020 um 13:39 Uhr)
  Mit Zitat antworten Zitat