Как подружить программу на Pascal с SQL Базой? (подключив dll)

[Vengeshop]

Виталий, если я верно понял, что Вы имели ввиду,
то конечно подходит, даже более чем) Буду премного благодарен!

[Stilet]

Исходник:

library mysqllaz;

{$mode objfpc}{$H+}

uses sqldb, mysql50conn,
  Classes
  { you can add units after this };
var
    MySQL50Connection1: TMySQL50Connection;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;

     function connect(host,base,user,pass:ansistring):boolean export;
     begin
       MySQL50Connection1:=TMySQL50Connection.Create(nil);
       SQLQuery1:=TSQLQuery.Create(nil);
       SQLTransaction1:=TSQLTransaction.Create(nil);

       SQLQuery1.Transaction:=SQLTransaction1;
       SQLQuery1.DataBase:=MySQL50Connection1;

       with MySQL50Connection1 do begin
         DatabaseName:=base;
         HostName:=host;
         UserName:=User;
         Password:=pass;
         Connected:=true;
         Result:=Connected;
       end;
     end;

     procedure disconnect; export;
     begin
       SQLQuery1.Close;
       MySQL50Connection1.Connected:=false;
       SQLQuery1.Destroy;
       MySQL50Connection1.Destroy;
       SQLTransaction1.Destroy;
     end;

     procedure queryopen(sql:ansistring); export;
     begin
       SQLQuery1.Active:=false;
       SQLQuery1.SQL.Text:=sql;
       SQLQuery1.Open;
     end;

     procedure GetField(FieldName:PAnsiChar;var Value:ansistring);export;
     begin
       Value:=SQLQuery1.FieldByName(FieldName).AsString;
     end;

     function eof:Boolean;export; begin Result:=SQLQuery1.EOF; end;
     procedure first; export; begin SQLQuery1.First; end;
     procedure next;export; begin SQLQuery1.Next;end;

exports  connect,disconnect,queryopen,GetField,eof,first,next;
{
  if connect(Бла бла) then begin
    queryopen('select from бла бла');
    while not eof() do begin
     GetField('поле1',s); Где s - однобайтовая строка паскаля
     next;
    end;
    disconnect;
  end;
}
begin
end.

DLL прикрепляю.
Писалось на скорую руку.
P.S. В течении дня возможно ответить не смогу, из-за опаных террористов ДНР.

[Vengeshop]

Огромное спасибо, Stilet!
Увы мой софт крашится при попытке подключения,
думаю проблема в нем, буду разбираться.

[Stilet]

А какая ошибка? Я применил string, что не есть гут для ДЛЛ. Возможно придется параметры функций на PChar переделывать.