[Great_BAO]

Собрал свой проект, на компе на котором собственно и собирал, приложение работает нормально. На других ПК, приложение при запуске выдает ошибку:


в проекте использую:
TSQLConnection, TSQLDataSet

пробовал кидать вместе с *.exe файлом на другие ПК бибилиотеки dbxmys.dll и libmysql.dll

какие файлы еще нужны для экзешника, для правильной работы TSQLConnection, TSQLDataSet в проекте ?

вот сам код проекта

Код:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, StdCtrls, IdSocketHandle,
  ExtCtrls, WideStrings, DBXMySql, FMTBcd, DB, SqlExpr;

type
  TForm3 = class(TForm)
    IdUDPServer1: TIdUDPServer;
    Memo1: TMemo;
    Timer1: TTimer;
    MTT: TSQLConnection;
    SQLDataSet1: TSQLDataSet;
    procedure Timer1Timer(Sender: TObject);
    procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread; AData: TBytes;
      ABinding: TIdSocketHandle);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
{$R *.dfm}

procedure TForm3.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TBytes; ABinding: TIdSocketHandle);

var
  i:      integer;
  ii:     integer;
  s:      string;
  d_ip:   string;
  d_pc:   string;
  d_date: string;
begin
  s := '';
  for i:= 0 to High(AData) do s := s+chr(Adata[i]);
  d_ip := '';
  d_pc := '';
  d_date := '';
  ii := Pos('#', s);
  if ii>0 then begin
    d_ip := Copy(s, 1, ii-1);
    Delete(s, 1, ii);
    ii := Pos('#', s);
    if ii>0 then begin
        d_pc := Copy(s, 1, ii-1);
        d_date := Copy(s, ii+1, MaxInt);
    end;
  end;
  Memo1.Lines.Append(d_ip + ' - ' + d_pc + ' - ' + d_date);
  SQLDataSet1.CommandText := ( 'INSERT INTO mtt_ping (ping_ip, ping_name, ping_date) VALUES (:d_ip,:d_pc,:d_date);' );
  SQLDataSet1.ParamByName('d_ip').AsString := d_ip;
  SQLDataSet1.ParamByName('d_pc').AsString := d_pc;
  SQLDataSet1.ParamByName('d_date').AsString := d_date;
  SQLDataSet1.Active := True;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Clear;
end;

end.

ПыСы если исключить TSQLConnection, TSQLDataSet из проекта, то программа успешно запускается на других ПК