初学delphi,搞不懂delphi控件的函数的具体引用.请各位大大详细说一下.感激不尽.
已经通过component-install-add等装入了etmms控件,然后在activex工具栏里,已经出现了etmms控件,我新建了一个form1,点击了etmms控件,然后在form1上单击了一下.现在想建一个button,点击后可以调用该控件里的各个函数.例:在form1里控件名称为:EtMMS1控件里的一个函数具体内容为:long ConnectModem(LPCTSTR strComName, long nComRate);
连接modem。
strComName 串口标识。如:“COM1”、“COM2”等。
nComRate 西门子手机为19200,工业gsm modem常为9600。
返回值:1为已打开串口,正在连接;-1为打开串口失败(或被占用或无此串口)。现在我就是想点击了button后,出现其具体提示,如为-1,提示"为已打开串口,正在连接"请好心的大大们给个具体的源代码.谢谢.
已经通过component-install-add等装入了etmms控件,然后在activex工具栏里,已经出现了etmms控件,我新建了一个form1,点击了etmms控件,然后在form1上单击了一下.现在想建一个button,点击后可以调用该控件里的各个函数.例:在form1里控件名称为:EtMMS1控件里的一个函数具体内容为:long ConnectModem(LPCTSTR strComName, long nComRate);
连接modem。
strComName 串口标识。如:“COM1”、“COM2”等。
nComRate 西门子手机为19200,工业gsm modem常为9600。
返回值:1为已打开串口,正在连接;-1为打开串口失败(或被占用或无此串口)。现在我就是想点击了button后,出现其具体提示,如为-1,提示"为已打开串口,正在连接"请好心的大大们给个具体的源代码.谢谢.
解决方案 »
- 三层,客户端调用服务端函数,返回字符型可以吗?
- d7无法运行:Borland License Information found的最好解决办法
- 在Delphi下实现对DB2的访问?
- 为什么在DLL中使用ADOQuery控件在设定SQL.Text的时候程序就死机了?
- 怎樣用random函數產生不重復的數據?
- 是不是TQuery每次只能执行一条SQL语句?
- 急,各位帮忙
- 窗體的觸發事件?
- delphi7调用java webservice 的问题?
- 怎么知道delphi自带的数据库的密码?请大家帮忙!
- 在delphi中如何区分表和视图
- 请教各位高手,怎样在程序中从现有数据表中动态得知某一列的数据类型,多谢了。非常紧急,一直在线等
语法都不会,怎么写代码啊procedure TForm1.Button1Click(Sender: TObject);
begin
if EtMMS1.ConnectModem('COM1',19200)=-1 then
ShowMessage('为已打开串口,正在连接');
end;
case EtMMS1.ConnectModem of
1: showmessage('已打开');
-1: showmessage('打开失败');
语法都不会,怎么写代码啊procedure TForm1.Button1Click(Sender: TObject);
begin
if EtMMS1.ConnectModem('COM1',19200)=1 then
ShowMessage('已打开串口,正在连接')
else if EtMMS1.ConnectModem('COM1',19200)=-1 then
ShowMessage('打开串口失败(或被占用或无此串口)');
end;