NetSend aus Thema 7078

[Tonic1024]

Hi...

Ich hatte genau das gleiche Problem als ich mal so ein Tool geproggt hab (Wer hat das nicht schonmal - oder zumindest drüber nachgedacht). Ich hab es dann so gelöst:

Delphi-Quellcode:

function String2OEM(str:string):string;
var temp: string;
    i: integer;
begin
  temp:=str;
  for i:=0 to length(str) do
    begin
    //IBM Charset converting
    CharToOem(@str[i],@temp[i]);
    end;
  Result:=temp;
end;

Einfach deinen Text da durchjagen bevor du ihn sendest. Getestet auf Win2k/Win2k sollte aber (vermutlich) eine Allroundlösung für dein Problem sein.

MfG

Tonic