呵呵,见笑见笑,我还是先看看《Microsoft SQL 2000 TMS配置说明》,再来请教数据库的问题吧.
我有段代码如下:
procedure TForm1.Button4Click(Sender: TObject);
var
TestStr:string;
Chaine
Char;
TmpLg:Longint;
Ch:string;
pCh
Char;
ret:integer;
begin
ch:='STRING';
try
pch:=stralloc(80);
strpcopy(pch,ch);
chaine:=tpalloc(pch,nil,80);
if chaine=nil then begin
ShowMessage('分配缓存出错');
tpfree(chaine);
tpterm;
exit;
end;
TestStr:=Inputbox('tuxedo-TOUPPER测试','请输入要转换的字符串: ','tuxedo');
strpcopy(chaine,TestStr);
ch:='TOUPPER';
strpcopy(pch,ch);
ret:=tpCall(pCh,Chaine,0,@chaine,@TmpLg,0);
if ret<>-1 then begin
ShowMessage('调用TOUPPER服务成功,返回结果为:' + #13 + StrPas(chaine));
tpfree(chaine);
end
else begin
ShowMessage('调用TOUPPER服务失败');
tpfree(chaine);
end;
except
tpfree(chaine);
end;
end;
里面有一点不明白,请问xianguo,
这段程序中客户端和服务器传输的方式是打包成STRING了还是FML了?
谢谢