D
delphibase
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
myhandle:thandle;
textptrchar;
mystring:string;
widemystring:widestring;
cf_html:uint;
begin
cf_html:=registerclipboardformat('html format');
clipboard.open;
try
myhandle:=clipboard.getashandle(cf_html);
textptr:=globallock(myhandle);
// mystring:=strpas(textptr);
widemystring:=UTF8ToWideString(textptr);
mystring:=WideStringToStringEx(widemystring,936);
globalunlock(myhandle);
finally
clipboard.close;
end;
我用上面代码及uses jclunicode(jcl库)解决了从剪贴板取源码及乱码问题,
但出现一个小问题:
所有源码中的空格<pre>(&nbsp)</pre>都变成了"?",谁知道如何解决?
同一问题在:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1128932
解决之后一齐给分(共100分)。
var
myhandle:thandle;
textptrchar;
mystring:string;
widemystring:widestring;
cf_html:uint;
begin
cf_html:=registerclipboardformat('html format');
clipboard.open;
try
myhandle:=clipboard.getashandle(cf_html);
textptr:=globallock(myhandle);
// mystring:=strpas(textptr);
widemystring:=UTF8ToWideString(textptr);
mystring:=WideStringToStringEx(widemystring,936);
globalunlock(myhandle);
finally
clipboard.close;
end;
我用上面代码及uses jclunicode(jcl库)解决了从剪贴板取源码及乱码问题,
但出现一个小问题:
所有源码中的空格<pre>(&nbsp)</pre>都变成了"?",谁知道如何解决?
同一问题在:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1128932
解决之后一齐给分(共100分)。