Unicode-Umwandlung

[blackdrake]

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]