我也正在学习com,共同努力。
解决方案 »
- RandomFrom 函数问题
- delphi怎样在线程里 访问窗体资源
- RadioGroup可以多选吗?它的ITEMS值可以分成两列吗?多选用除了用CheckBox还可以怎么做?
- 请大家帮忙再看一下,数据表!
- 千金散尽还复来(散分)!
- 在程序运行过程中怎样删除指写名称的子菜单项
- 如果一个procedure在运行中,如何强行终止他,且不会出错!!
- 怎样把integer类型直接转换为real类型啊?
- 300分急寻:Magic CD Burner,CDWriterXP,NuCDR三个控件刻出来的光盘文件名都是乱码,有谁知道怎样解决,或更好的控件可以做光盘刻录程序?
- 有谁有vc中spy++的源代码!
- 如何让报表中的文字能够自动换行,长度小于100
- 如何有效地通过编程禁止某个特定应用程序的运行?
procedure TForm1.Button1Click(Sender: TObject);
var
LoginObj :ImtssecurityObj;
vCookie :Olevariant;
begin
application.ProcessMessages;
Loginobj:=ComtsSecurityObj.CreateRemote('Gordon');
LoginObj.login(edit1.text,edit2.text,vCookie);
if (vCookie<>'') then
begin
edit3.text:=vCookie;
edit3.Visible :=true;
end
else
showmessage('invalid login');
end;