Hallo.
Danke für den Tipp. W steht ja für WideChar und einen
Unicode müsste ich dahin umwandeln können. Habe bereits viel rumprobiert, komme aber nicht weiter
Hier ist ein Testscript:
Delphi-Quellcode:
// convert a multibyte string to a wide string using Multibyte to wide char
// Modifikation von [url]http://www.jpgriffiths.com/tutorial/api/multibytetowidechar.html[/url]
// -> Versuch, Rückgabewert von WideString in pWideChar zu wandeln
Function testfunktion(MBString :
String) : pWideChar;
var
Size : Integer;
WcBuffer :
Array[0..MAX_PATH]
of WideChar;
tmp:
string;
//+
begin
// obtain the size required for the widechar buffer
Size := MultiByteToWideChar(CP_ACP, 0, PChar(MBString), -1,
nil, 0);
if (Size > 0)
and (Size < MAX_PATH)
then begin
MultiByteToWideChar(CP_ACP, 0, PChar(MBString), -1, @WCBuffer, Size);
// Auf ... zugewiesener Wert wird niemals benutzt
Result := WCBuffer;
// Result := @WCBuffer[1];
end else
tmp := '
';
//+
Result := @tmp[1];
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:
string;
begin
// [url]http://www.jpgriffiths.com/tutorial/api/multibytetowidechar.html[/url]
// [url]http://209.85.135.104/search?q=cache:j4l_ibuN2mEJ:forum.dsdt.info/viewtopic.php%3Ft%3D30046+delphi+MultiByteToWideChar&hl=de&ct=clnk&cd=1&gl=de[/url]
//showmessage(get_recycler_filename('C:\Recycler\S-1-5-21-515967899-1957994488-839522115-1003\Dc129.txt'));
s := #$00#$53#$30#$8C#$30#$6F#$30#$5E#$97#$38#$5E#$6B#$30#$ED#$77#$44#$30#$C6#$30#$AD#$30#$B9#$30#$C8#$30#$67#$30+
#$42#$30#$8B#$30#$02#$30#$2E#$00#$69#$00#$64#$00#$78#$00;
movefilew('
testa', testfunktion(s));
end;
Die Datei "testa" bleibt unverändert im Dateinamen.
Ich habe eine Umwandlungsfunktion (String -> WideString) versucht, in String -> pWideChar umzuschreiben, hat aber scheinbar fehlgeschlagen. Ich kenne mich als Hobbyprogrammier mit Pointern einfach nicht aus und habe sie bis zum heutigen Tag nicht gebraucht. Weiß jemand, was bei meinen oben genannten Testscript nicht korrekt ist? Mir vergeht langsam der Spaß am Programmieren...
Gruß
blackdrake
[edit=mkinzler]Umbruch in Codezeile Mfg, mkinzler[/edit]