farique
15
All posts from farique
farique in :: farique ::,

Delphi и Transaq Connector

Всем привет!
Давно не писал. Простите, сейчас времени очень мало.
В общем, как давно обещал: в кратце расскажу, как использовать Transaq Connector в Delphi
Очень просто: (пишем в Delphi 2010)

1) Описываем функции DLL-ки:

function SetCallback(pCallback: Tcallback): boolean; stdcall;
external 'txmlconnector.dll';
function SendCommand(pData: PAnsiChar): PAnsiChar; stdcall;
external 'txmlconnector.dll';
function FreeMemory(pData: PAnsiChar): boolean; stdcall;
external 'txmlconnector.dll';

2) Описываем функцию для отправки команды и получения результата:

function sendCmd(command: string): string;
var
    cmd, ans: PAnsiChar;
begin
    cmd := PAnsiChar(AnsiToUtf8(command));
    ans := SendCommand(cmd);
    Result := Utf8ToAnsi(ans);
    FreeMemory(ans);
end;

3) Описываем колбэк функцию:

function funcCallBack(pData: PAnsiChar): PAnsiChar;
var
    str: string;
begin
    str := Utf8ToAnsi(pData);
    FreeMemory(pData);
    //Делаем что угодно с str
end;

4) Перед отправкой команд устанавливаем колбэк функцию:

SetCallback(funcCallBack);

5) Отправляем команды
var
    cmd, ans: string;
begin
    cmd := '<command id="..."/>';
    ans := sendCmd(cmd);
    //работаем с ans как со строкой
end;

6) Пишем робота, торгуем и зарабатываем )))

Удачной торговли!