V
vmao
Unregistered / Unconfirmed
GUEST, unregistred user!
如何调用word的繁简体转换功能？转换我的memo中的内容？
我想word是不是写在什么动态连接库中了！
我有什么办法可以调用一下！
我想word是不是写在什么动态连接库中了！
我有什么办法可以调用一下！
V
vmao
Unregistered / Unconfirmed
GUEST, unregistred user!
也不是一定要用word的功能！只要能对文本进行繁简体转换就行了！
D
delphibase
Unregistered / Unconfirmed
GUEST, unregistred user!
如果是网页源码，可用jclunicode。
V
vmao
Unregistered / Unconfirmed
GUEST, unregistred user!
不是网页！是txt
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
用Word 2000 进行简繁转换，以下是成功代码。
procedure TForm1.Button1Click(Sender: TObject);
var
doc,app
levariant;
s:string;
begin
doc:=createOleobject('Word.Document');
app:=doc.application;
app.Selection.typetext(Memo1.text);
app.Selection.wholestory;
app.selection.select;
app.WordBasic.ToolsSCTCTranslate(0,0,0);//简转繁
// app.WordBasic.ToolsTCSCTranslate(0,0,0);//繁转简
s:=app.selection.text;
delete(s,length(s),1);
s:=stringreplace(s,#13,#13#10,[rfReplaceAll]);
memo1.text:=s;
doc.close(0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
doc,app
levariant;s:string;
begin
doc:=createOleobject('Word.Document');
app:=doc.application;
app.Selection.typetext(Memo1.text);
app.Selection.wholestory;
app.selection.select;
app.WordBasic.ToolsSCTCTranslate(0,0,0);//简转繁
// app.WordBasic.ToolsTCSCTranslate(0,0,0);//繁转简
s:=app.selection.text;
delete(s,length(s),1);
s:=stringreplace(s,#13,#13#10,[rfReplaceAll]);
memo1.text:=s;
doc.close(0);
end;
V
vmao
Unregistered / Unconfirmed
GUEST, unregistred user!
首先非常感谢jsxjd的回答！这个回答已经能够解决我的问题了！（我会给分的）
唯一的缺点就是调用Twordapplication的时候速度太慢了！
1.我想知道可不可以不用启动wordapplication！这项功能是不是写在什么动态连接库中了？
如果不启动wordapplication的话速度应该可以很快的！
2.繁、检体是不是有什么对照关系？有谁能提供一点这方面的资料？毕竟如果这样写的话
要先安装WORD！如果有更好的方法我就不用调Wordapplication了！~
3.如果找到该项功能在某个动态连接库中的话我就可以在发布程序的时候把该DLL带上，这样
不装WORD也能有繁检体转换功能了！这种方法最简单省事了！
像一般的台资企业要把文档发到台湾的话就必须进行繁检体转换（非WORD）!应该说程序有这样
的功能是非常COOL的！
顺便问一下如何将该贴的分提高！如果谁能回答的比较圆满的话这样的分实在太低了！
唯一的缺点就是调用Twordapplication的时候速度太慢了！
1.我想知道可不可以不用启动wordapplication！这项功能是不是写在什么动态连接库中了？
如果不启动wordapplication的话速度应该可以很快的！
2.繁、检体是不是有什么对照关系？有谁能提供一点这方面的资料？毕竟如果这样写的话
要先安装WORD！如果有更好的方法我就不用调Wordapplication了！~
3.如果找到该项功能在某个动态连接库中的话我就可以在发布程序的时候把该DLL带上，这样
不装WORD也能有繁检体转换功能了！这种方法最简单省事了！
像一般的台资企业要把文档发到台湾的话就必须进行繁检体转换（非WORD）!应该说程序有这样
的功能是非常COOL的！
顺便问一下如何将该贴的分提高！如果谁能回答的比较圆满的话这样的分实在太低了！
V
vine
Unregistered / Unconfirmed
GUEST, unregistred user!
在<Delphi猛料集合＞上有個Gb2Big5.pas單元。
可以去看看
方便的話，留下信箱我可以發給你！
可以去看看
方便的話，留下信箱我可以發給你！
V
vmao
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢！
vmao@163.net
vmao@163.net
V
vine
Unregistered / Unconfirmed
GUEST, unregistred user!
已發，請查收！
V
vmao
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢vine!我已经收到！但是我转化过来的全是乱码！但gb->big5->gb却能转回来！这是怎么回事？
procedure TForm1.big5Click(Sender: TObject);
begin
if not VerifyBIG5(edit1.Text) then //转成big5
edit1.Text:=(gbtobig5(edit1.Text));
end;
procedure TForm1.gbClick(Sender: TObject);
begin
if verifybig5(edit1.Text) then //转成gb
edit1.Text:=(big5togb(edit1.Text));
end;
按jsxjd的方法却能很好转换！而且比较智能：如"程序员"->"程式師",还有什么好方法吗？
procedure TForm1.big5Click(Sender: TObject);
begin
if not VerifyBIG5(edit1.Text) then //转成big5
edit1.Text:=(gbtobig5(edit1.Text));
end;
procedure TForm1.gbClick(Sender: TObject);
begin
if verifybig5(edit1.Text) then //转成gb
edit1.Text:=(big5togb(edit1.Text));
end;
按jsxjd的方法却能很好转换！而且比较智能：如"程序员"->"程式師",还有什么好方法吗？
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
WordBasic 中Word.Application 的一个子对象,无法单独创建.
只有创建了 Word.Application,才会有 WordBasic.
只有创建了 Word.Application,才会有 WordBasic.
V
vine
Unregistered / Unconfirmed
GUEST, unregistred user!
to vmao,
我試了一下，那個單元能很好地轉換呵
你不要進行判斷了，知道是那種轉換，直接用AutoGB，AutoBIG5不更好么
有的文本可能兩種碼都存在的呵
總之我用上面的兩個函數，都正確！
我試了一下，那個單元能很好地轉換呵
你不要進行判斷了，知道是那種轉換，直接用AutoGB，AutoBIG5不更好么
有的文本可能兩種碼都存在的呵
總之我用上面的兩個函數，都正確！
V
vmao
Unregistered / Unconfirmed
GUEST, unregistred user!
to vine
我也不知道怎么回事！就是转不过来！全是乱码！可能和我的机器有关系！我装的WIN2000 server
我从网上下载了一些转换的软件也不能转换！而且乱码的情况和用该单元是一样的!
不过我相信你的单元是好的！
我也不知道怎么回事！就是转不过来！全是乱码！可能和我的机器有关系！我装的WIN2000 server
我从网上下载了一些转换的软件也不能转换！而且乱码的情况和用该单元是一样的!
不过我相信你的单元是好的！