string / PChar Problem in funktion / dll

[MaBuSE]

Hallo,

ich habe folgende Definition einer Funktion in einer DLL:

Code:

BOOL __declspec(dllexport) GetUser     (LPSTR sDomain, LPSTR sUser, DWORD nLen);

in Delphi sieht das bei mir so aus:

Delphi-Quellcode:

function GetUser(sDomain: LPSTR; var sUser: LPSTR; var nLen: DWORD):BOOL; stdcall; overload;
...
exports
  GetUser(sDomain: LPSTR; var sUser: LPSTR; var nLen: DWORD) name 'GetUser';

Mein Problem ist die Übergabe eines Strings als LPSTR.

Delphi-Quellcode:

function myMagicFunc(const sDomain: string; var SUser: string):Boolean;
...

function GetUser(sDomain: LPSTR; var sUser: LPSTR; var nLen: DWORD):BOOL;
var
  sD,
  sU: string;
  cU: array of Char;
begin
  sD := sDomain;
  sU := sUser;
  Result := myMagicFunc(sD, sU);

  // string sU in array of char cU umwandeln
  setlength(cU, length(sU));
  StrLCopy(@cU[0],@sU[1],length(cU));

  sUser := PansiChar(cU);
  nLen := Length(cU);

  // Compiler-Hinweis Beseitigung ;-)
  if sUser = sDomain then ;
end;

Das will nicht so wie ich will !!!

Gibt beim Aufruf eine Schutzverletzung.

Weiß jemand Rat ?

[edit]Als offene Frage markiert[/edit]

[mirage228]

Hi,

vielleicht hilft dir die Funktion StrPCopy weiter.
Du musst vorher natürlich mit GetMem Speicher für deinen PChar reservieren (mindestens Length(MyString)).

Dann sollte es gehen.

mfG
mirage228

[NicoDE]

Zitat:

Zitat von mirage228

vielleicht hilft dir die Funktion StrPCopy weiter.

StrLCopy ist sicherer (Pufferüberlauf).

[mirage228]

Zitat:

Zitat von NicoDE

Zitat:

Zitat von mirage228

vielleicht hilft dir die Funktion StrPCopy weiter.

StrLCopy ist sicherer (Pufferüberlauf).

Ja?

Eigentlich ist StrPCopy doch nur eine Projektion von StrLCopy!?

mfG
mirage228

[NicoDE]

Zitat:

Zitat von mirage228

Eigentlich ist StrPCopy doch nur eine Projektion von StrLCopy!?

Was meinst Du mit Projektion?

Man kann natürlich auch vorher die Länge des Eingabestrings ermitteln und prüfen, ob der Puffer groß genug ist. Oder man legt den Puffer anhand der Länge des Eingabestring an - dann erübrigen sich die Prüfungen von selbst :)

---

StrPCopy

Code:

Description

StrPCopy copies a Pascal-type string Source into a null-terminated string Dest. It returns a pointer to Dest.

StrPCopy does not perform any length checking. 

The destination buffer must have room for at least Length(Source)+1 characters.

[mirage228]

Zitat:

Zitat von NicoDE

Zitat:

Zitat von mirage228

Eigentlich ist StrPCopy doch nur eine Projektion von StrLCopy!?

Was meinst Du mit Projektion?

Das StrPCopy selbst nur StrLCopy aufruft (man muss halt weniger Parameter angeben).

Da muss man natürlich vorsichtig sein, indem man vorher genug Speicher reserviert...

mfG
mirage228

[NicoDE]

Zitat:

Zitat von mirage228

Das StrPCopy selbst nur StrLCopy aufruft

Mag sein. Der Unterschied ist, dass StrPCopy die Länge des Eingabesstrings an StrLCopy übergibt - nicht die Größe des Puffers.

[MaBuSE]

Vielen Dank für die Antworten, ich werde das ausprobieren und "mein" Ergebnis hier posten.
(Offene Frage wird als beantwortet markiert)

:dp: