Из VBasic в Delphi.

[paravoz]

Есть библиотека и код на VBasice для отправки смс через GSM-модем. Не могу разобраться как реализовать его на Delphi. Может кто знает, помогите!

Имя COM-библиотеки:

HeadwindGSM
Классы COM:

SMSDriver - основной класс, позволяющий настроить и подключить GSM модем;
SMSHandler - обработчик сообщений, использующийся для получения SMS от Персонального SMS Сервера в приложение;
SMSMemory - класс для доступа к памяти GSM-модема;
SMSMessage - SMS/WAP-Push сообщение;
USSDRequest - USSD запрос.
Все классы имплементируют дуальный интерфейс и возвращают ошибки в соответствием с интерфейсом ISupportErrorInfo.

Пример клиента

Public Class client
    Dim drv As Object
    Dim msg As Object
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Headwind GSM Driver class
        drv = CreateObject("HeadwindGSM.SMSDriver")
        ' Port name
        drv.PortName = "COM5"
        ' Connect to the modem
        drv.Connect()
        ' Message object
        msg = CreateObject("HeadwindGSM.SMSMessage")
        ' Recipient number
        msg.To = "79214432123"
        ' Message body
        msg.Body = "Hello from VB Client!"
        ' Send message
        msg.Send()
    Exit Sub
End Class

[pu4koff]

как-то так вероятно:

procedure TForm1.Button1Click(Sender: TObject);
var
  drv: Variant;
  msg: Variant;
begin
  drv := CreateOleObject('HeadwindGSM.SMSDriver');
  drv.PortName := 'COM5';
  drv.Connect();

  msg := CreateOleObject('HeadwindGSM.SMSMessage');
  msg.To := '79214432123';
  msg.Body := 'Hello from VB Client!';
  msg.Send();
end;

[paravoz]

Пишу на Delphi уже 4 года, а с библиотеками не разу не сталкивался! Это наверное не нормально! Спасибо попробую!