Print Chinese in Delphi successful but in C# failed.

[franchdream]

DELPHI code:
unit test1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
RadioGroup1: TRadioGroup;
Label1: TLabel;
procedure Button1Click(Se nder: TObject);
procedure FormShow(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
//procedure DrawToCanvas(Ca v: Tcanvas;x,y:int eger);Stdcall;e xternal
'KwBarDll.dll';
procedure Epson_Text8d(M: Smallint;F:byte ;S:string);stdc all; external
'Epson.dll';
procedure Epson_Text(M:Sm allint;F:byte;S :string);stdcal l;external
'Epson.dll';
procedure EpsonPrnLn(S:st ring);stdcall;e xternal 'Epson.dll';
function GetDefaultPrint er:string;stdca ll;external 'Epson.dll';
procedure TForm1.Button1C lick(Sender: TObject);
var i:integer;
begin
for i:=0 to Memo1.Lines.Cou nt-1 do
begin
if RadioGroup1.Ite mIndex=0 then
Epson_Text8d(14 ,0,Memo1.Lines[i]);
if RadioGroup1.Ite mIndex=1 then
Epson_Text(18,0 ,Memo1.Lines[i]);// print procedure
if RadioGroup1.Ite mIndex=2 then
EpsonPrnLn(Memo 1.Lines[i]);
end;
end;

procedure TForm1.FormShow (Sender: TObject);
begin
Label1.Caption: ='printer's name£º'+GetDefa ultPrinter;
end;

end.

It can print Chinese character,but my C# code:

[DllImport("Epso n.dll", EntryPoint = "Epson_Text ", CallingConventi on =
CallingConventi on.StdCall, CharSet = CharSet.Unicode , SetLastError = true,
ExactSpelling = true)]
public static extern void Epson_Text(Int1 6 M, byte F, string S);
.........
string st = "ÖÐÎÄÊDz»ÊDZàÂë ÓÐʲôҪÇó";
Epson_Text(18, 0, st);

It can't work.
Anyone has suggest for me. Thanks!

[franchdream]

I have resolved it.

[Merlin]

I have resolved it.

Cool... Glad to read it. But can you say how you solved it, so I will
not have read your message for nothing... thanks in advance :-)

--

//\/\\3rL1n_______

[franchdream]

The dll is writed by Delphi, and the .NET pass the String parameter to DLL
is unicode on NT or XP. So
[DllImport("Epso n.dll", EntryPoint = "Epson_Text ", CallingConventi on =
CallingConventi on.StdCall, CharSet = CharSet.Unicode , SetLastError = true,
ExactSpelling = true)]
is wrong . It should be
[DllImport("Epso n.dll", EntryPoint = "Epson_Text ", CallingConventi on =
CallingConventi on.StdCall, CharSet = CharSet.Ansi, SetLastError = true,
ExactSpelling = false)]
"ExactSpell ing = false", why? Because the .NET must change the function'
name of the EntryPoint if the ExactSpelling is true.

[Merlin]

thanks for you message.
--

//\/\\3rL1n_______