初学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,提示"为已打开串口,正在连接"请好心的大大们给个具体的源代码.谢谢.

解决方案 »

  1.   

    晕,你应该先去看一下Object Pascal的语法
    语法都不会,怎么写代码啊procedure TForm1.Button1Click(Sender: TObject);
    begin
        if EtMMS1.ConnectModem('COM1',19200)=-1 then
            ShowMessage('为已打开串口,正在连接');
    end;
      

  2.   

    应该和DELPHI自己的控件使用方式一样:
     case EtMMS1.ConnectModem  of 
     1: showmessage('已打开');
     -1: showmessage('打开失败');
      

  3.   

    同意二楼的代码 在BUTTON的ONCLICK事件里面把代码复制进去就可以了
      

  4.   

    晕,你应该先去看一下Object Pascal的语法
    语法都不会,怎么写代码啊procedure TForm1.Button1Click(Sender: TObject);
    begin
      if EtMMS1.ConnectModem('COM1',19200)=1 then
        ShowMessage('已打开串口,正在连接')
      else if EtMMS1.ConnectModem('COM1',19200)=-1 then
        ShowMessage('打开串口失败(或被占用或无此串口)');
    end;