СОМ технологии в Делфи. Подключить нужный обьект

[z-wer]

Вы можете использовать возможности, предоставляемые программой Xxxx.xxx в программах на языке Visual BASIC благодаря технологии COM.

Строка
Set XxxObj=CreateObject("Xxx.Document")
означает, что будет создан новый "документ" в программе Xxx, которая будет запущена, при необходимости. Мы не увидим ни запуска Xxx, ни появления еще одного окна с пустым документом. Это произойдет незаметно для нас, вновь созданный обьект не будет воспринимать воздействий со стороны пользователя, но готов принимать команды из нашей программы на Visual Basic, список которых будет приведен ниже.


long GetStatus() состояние проигрывателя .

Вопрос начинающего - как все это привязать к Delphi ?

[raxp]

...технология COM поддерживается delphi
...не видно описания API программы на Visual Basic
...название темы не согласуется с содержимым

[Stilet]

unit Unit1;

interface

uses       comobj,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var      k:OleVariant;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 k:=CreateOleObject('Xxx.Document');
end;

end.

Теперь если not VarIsClear(k) ты можешь обращаться к полям обьекта k

[z-wer]

Спасибо, что не запинали ногами.

Собственно вопрос состоит в следующем.
Есть "железка" в компе. Управляет этой железкой сторонняя прога.
Есть описание апи этой проги, на основе VB.

Несколько функций типа
Set ХХХObj=CreateObject("XXX.Document")
long GetStatus() состояние проигрывателя
void AssignValue(LPCTSTR Name, LPCTSTR Value)
присвоить переменной среды Name значение Value
BSTR GetValue(LPCTSTR Name)
получить значение переменной с именем Name

и т.п.

Есть несколько примеров скриптов на VB для взаимодействия с этой прогой.

Задача состоит в том - что нужно все это взаимодействие организовать через свою программу на делфи.

Сорри, я совсем начинающий, причем даже не студент.

[Stilet]

нужно все это взаимодействие организовать через свою программу на делфи.

Ну дык что мешает организовывать? )
Изучай функционал, и пиши в Делфи.

[z-wer]

Сообщение от Stilet

Ну дык что мешает организовывать? )
Изучай функционал, и пиши в Делфи.

Недостаток знаний.

Пару бы примерчиков, типа как кирпичики на льду.
От чего бы можно было оттолкнутся, а то как-то скользко...

[Stilet]

Пару бы примерчиков, типа как кирпичики на льду.

Ну дык это нужно функционал твоей бяки знать...
Если кирпичики интере-суют то беря мой пример, можно написать

k.Visible:=true

При условии что такое поле в k есть.
Ибо тебе возвращается почти обычный объект, и работать нужно с ним как с обьектом.

[z-wer]

Если кирпичики интере-суют то беря мой пример, можно написать

Немного бы поподробней...
Потому как на просторах нета особо ничего не нарыл.
Мож совсем плохо рыл...

Спасибо, за терпение и Сорри за ламмерские вопросы.

[raxp]

TC, загляните сюда (пост #6)
скачать

[z-wer]

За "пинки" спасибо.
Жму кнопку "Мозги ON".