Список проголосовавших за комментарий "Програмирую на Delphi.<br/> <br/> Если прочитать руководство от Альфабанка то там вот что пишут<br/> :<br/> СВОЙСТВО «CONNECTED» — СОСТОЯНИЕ СОЕДИНЕНИЯ<br/> Установка и получение состояния соединения с сервером «Альфа-Директ».<br/> СИНТАКСИС<br/> <br/> [VB]<br/> ADObj.Connected<br/> <br/> [C++]<br/> HRESULT get_Connected(VARIANT_BOOL *Value);<br/> HRESULT put_Connected(VARIANT_BOOL Value);<br/> <br/> Некоторые ответы ты можеш найти на свободной требуне: <a href="/r.php?u=http%3A%2F%2Fwww.alfadirect.ru%2Fcommon%2F%3Fpage%3Dforum%26f%3DAD&s=4290201338" target="_blank">www.alfadirect.ru/common/?page=forum&f=AD</a><br/> <br/> На делфи я так подключаюсь: FAD := CoAlfaDirect.Create;<br/> <br/> например:<br/> private<br/> FAD: IAlfaDirect;<br/> <br/> procedure TFormTorg.btnPerMICEXClick(Sender: TObject);<br/> begin<br/> try<br/> FAD := CoAlfaDirect.Create;<br/> mResult.Lines.Add('Подключение установлено');<br/> except<br/> mResult.Lines.Add(Exception(ExceptObject).Message);<br/> end;<br/> …<br/> end;<br/> <br/> В потоках незабываем прописывать Application.Initialize;<br/> <br/> например<br/> <br/> begin<br/> Application.Initialize;<br/> try<br/> FAD := CoAlfaDirect.Create;<br/> mResult.Lines.Add('Подключение установлено');<br/> except<br/> mResult.Lines.Add(Exception(ExceptObject).Message);<br/> end;<br/> …<br/> end;"