Стало интересно подобное на FPC сделать. Оказалось все очень просто, но может кому пригодится.
- Код: Выделить всё
program hello;
{$mode objfpc}{$H+}
uses
mssqlconn, sqldb;
var
mssql:TMSSQLConnection;
trans:TSQLTransaction;
query:TSQLQuery;
begin
writeln('Content-Type: text/html',#10#13);
writeln('<html><body>');
writeln('hello<br>');
mssql:=TMSSQLConnection.Create(nil);
mssql.HostName:='192.168.0.7:1433';
mssql.DatabaseName:='тут имя БД';
mssql.UserName:='тут имя пользователя';
mssql.Password:='тут пароль;
trans:=TSQLTransaction.Create(nil);
trans.Database:=mssql;
query:=TSQLQuery.Create(nil);
query.Database:=mssql;
query.Transaction:=trans;
mssql.Connected:=true;
if mssql.Connected then
writeln('connected')
else
writeln('not connected');
writeln('<br>');
query.SQL.Text:='SELECT TOP 10 Awb_prefix FROM doc_Cargo';
query.Open;
while not query.EoF do
begin
writeln(query.FieldByName('Awb_prefix').AsString);
writeln('<br>');
query.Next;
end;
writeln('</body></html>');
query.free;
trans.free;
mssql.free;
end.
Ubuntu 12.10 (amd64)
fpc 2.6.2 (скачан с сайта и установлен вручную, в репозитарии 2.6.0 - там поддержа MS SQL еще не реализована, по-моему)
в начале нелинковалось, не хватало libdl, чтобы понять где библиотека начал ставить apt-files, так оно и libdl доставило
так же необходимо установить пакет freetds-dev
