Вы упускаете торговые возможности:
- Бесплатные приложения для трейдинга
- 8 000+ сигналов для копирования
- Экономические новости для анализа финансовых рынков
Регистрация
Вход
Вы принимаете политику сайта и условия использования
Если у вас нет учетной записи, зарегистрируйтесь
...
var
hLib :HWND; // нендл библиотеки
hSok :integer; // нендл сокета
...
// определяем точки входа функций
hLib := LoadLibrary('mtapi.dll');
@MtCreate :=GetProcAddress(hLib,PChar('MtCreate'));
@MtConnect := GetProcAddress(hLib,PChar('MtConnect'));
...
hSok := MtCreate(); // открываем сокет
I := MtConnect(hSok,PChar('195.2.82.152'),1950)) ; // устанавливаем соединение
в I возворошается значение 23, где здесь может быть ошибка ?
ну во первих ошибка может быть в описании
MtConnect, у меня так:
TMtConnect = function(const handle: integer; const server: PChar; const port: integer): integer; cdecl;
cdecl - не забудь.
ну и во вторых, в примере написано, что перед коннектом надо сокет синитить:
wVersionRequired := $0101;
WSAStartup(wVersionRequired, WSData );
I := MtConnect(hSok,PChar('195.2.82.152'),1950)) ;
спосибо, вот так теперь работет, я и не думал, что надо иннициализировать сокет WSAStartup(wVersionRequired, WSData ); .
ps. маленькая просьба: не мог бы ты выслать свои исходники на делфях какие есть чтобы я вопросами людей не мучал :-)
weterok@biysk.net
Пример киньте на Дельфи - не получаеться соединение с сервером и получение котриовок.. :(