Ув. Программисты, у меня такая проблема, пишу програмку, которая должна работать с БД MySql. Работаю с MySql API, т.к. был опыт работы с ней на с++, но сейчас требование писать на FreePascal+кроссплатформенность, посему юзаю Lazarus.
Вот код работы с БД:
Код:
myinit,myconn:Integer;
iRes:Integer;
Res:Integer;
Row:Pointer;
myinit:=mysql_init(0);
my_init; myconn:=mysql_real_connect(myinit,PChar(Host),PChar(Login),PChar(Password),
PChar(db),Port,nil,0);
iRes:=mysql_query(myinit,PChar(queryString));
Res:=mysql_store_result(myinit);
Row:=mysql_fetch_row(Res);
Length:=mysql_fetch_lengths(Res);
if Length<>nil then
begin
len:= PCardinal(LongInt(Length)+2*SizeOf(Cardinal))^;
SetLength(Result, len);
Move(Row^, Pointer(Result)^, len);
end;
Посылаю простейщий запрос "SELECT * FROM database LIMIT 1", возвращает, но есть одна проблема, вначале идут несколько "мусорных" символов. Подскажите глупому,куда копать.