Convert PWideChart to WideString

[fuchsle]

Hallo liebe Gemeinde,

da ich eine DLL schreibe die Informationen zwischen 2 Programmen austauschen muss habe ich die Datentypen PWideChar und WideString fest vorgegeben.
Als Parameter bekomme ich PChar und muss diesen als WideString weiterreichen.

Dabei scheint es Konvertierungsfehler zu geben, aktuell habe ich leider nichts zu diesem Problem gefunden.
Wie Konvertiere ich einen PChar korrekt zu einem WideString?


Vielen Dank.

Delphi-Quellcode:

function svnrevision(Path: PChar): Integer; stdcall;
var
  svn: ISubWCRev;
begin
  svn := CoSubWCRev.Create;
  try
    svn.GetWCInfo(WideString(Path), True, True);
    Result :=  StrToInt(svn.revision);
  finally
    svn := nil;
  end;
end;

[DeddyH]

Ich habe jetzt nicht so genau hingeschaut, aber vielleicht liegt es daran, dass Du die Konstante 'Path' verwendest statt des übergebenen Parameters?

[fuchsle]

Zitat von DeddyH:

Ich habe jetzt nicht so genau hingeschaut, aber vielleicht liegt es daran, dass Du die Konstante 'Path' verwendest statt des übergebenen Parameters?

Sorry, war ein Fehler beim Einstellen, ich nutze natürlich den Parameter.
Hatte zwischendurch den Pfad fest eingetippt, daher das Überbleibsel.

[fuchsle]

Bin nun folgenden Weg gegangen

svn.GetWCInfo(string(ShortString(Path)), True, True);

sicher nicht der eleganteste, aber es funktioniert und ich kenne keine andere Lösung.

[Uwe Raabe]

Eigentlich sollte deine ursprüngliche Lösung auch funktionieren, aber den Umweg über ShortString würde ich mir ersparen (wenn der überhaupt korrekt ist).

svn.GetWCInfo(string(Path), True, True); sollte es tun.

[ChrisE]

Hi,

es passt vielleicht nicht 100% zum Problem, aber ich würde bei solchen Funktionen die in einer DLL per Export arbeiten und auch bei der Deklaration in den Programmen auf "veränderliche Typen" wie PChar verzichten. Lieber die expliziten Typen wie in diesem Fall PAnsiChar oder PWideChar. PChar kann ja je nach Entwicklungsumgebung was anderes sein.

Gruß, Chris

[fuchsle]

Zitat von Uwe Raabe:

Eigentlich sollte deine ursprüngliche Lösung auch funktionieren, aber den Umweg über ShortString würde ich mir ersparen (wenn der überhaupt korrekt ist).

svn.GetWCInfo(string(Path), True, True); sollte es tun.

Danke für den Hinweis, aber ohne ShortString geht es bei mir nicht.

[ChrisE]

Zitat von fuchsle:

Danke für den Hinweis, aber ohne ShortString geht es bei mir nicht.

Das deutet eigentlich immer mehr darauf hin, dass es kein PChar sondern ein PAnsiChar ist. Und das casten auf ShortString könnte hier zum Datenverlust führen, da ShortString ein AnsiString[255] ist. Ich würde die Deklaration auf PAnsiChar ändern und den Cast auf AnsiString.

Delphi-Quellcode:

function svnrevision(Path: PAnsiChar): Integer; stdcall;
var
  svn: ISubWCRev;
begin
  svn := CoSubWCRev.Create;
  try
    svn.GetWCInfo(WideString(AnsiString(Path)), True, True);
    Result := StrToInt(svn.revision);
  finally
    svn := nil;
  end;
end;

Gruß, Chris

[fuchsle]

Die Schnittstelle der Fremdsoftware verwendet nach Dokumentation angeblich ShortString also einen String mit fester Größe von 255. Könnte sein, dass meine TypeCast daher klappt und bisher zu keinen Verlusten geführt hat.

Leider muss ich sagen, dass die Kollegen mit der Dokumentation nicht auf dem Laufenden sind. Aber mit diesem Problem bin ich ja nicht alleine.