mbshareat
سه شنبه 02 شهریور 1395, 22:32 عصر
سلام
یه برنامه نوشته به زبان غیر دلفی هست که من متن چیزی مثل richedit رو ازش می گیرم.توسط این تابع:
Function WindowCaption(H:THandle):String;
Var
aText:array [0..32000] of char;
begin
SendMessage(H, WM_GETTEXT,
SizeOf(aText), integer(@aText)) ;
Result:=aText;
end;
مشکل اینه که وقتی متن رو از این کامپوننت میگیرم و در word 2007 الصاق می کنم، کارکترهای غیر فارسی مثل {$a}J درست الصاق می شه اما وقتی در دلفی 6 میگیرم آکولاد و کارکترهای لاتین تبدیل به علامت سوال میشه.
راهی هست که بتونم کارکترها رو درست دریافت کنم؟(فرض رو بر این بگیرید که نمیخوام از دلفی یونیکد استفاده کنم ولی اگه با دلفی xe2 میشه هم بفرمایید راهش همینه؟)
یه برنامه نوشته به زبان غیر دلفی هست که من متن چیزی مثل richedit رو ازش می گیرم.توسط این تابع:
Function WindowCaption(H:THandle):String;
Var
aText:array [0..32000] of char;
begin
SendMessage(H, WM_GETTEXT,
SizeOf(aText), integer(@aText)) ;
Result:=aText;
end;
مشکل اینه که وقتی متن رو از این کامپوننت میگیرم و در word 2007 الصاق می کنم، کارکترهای غیر فارسی مثل {$a}J درست الصاق می شه اما وقتی در دلفی 6 میگیرم آکولاد و کارکترهای لاتین تبدیل به علامت سوال میشه.
راهی هست که بتونم کارکترها رو درست دریافت کنم؟(فرض رو بر این بگیرید که نمیخوام از دلفی یونیکد استفاده کنم ولی اگه با دلفی xe2 میشه هم بفرمایید راهش همینه؟)