Ув. Программисты, у меня такая проблема, пишу програмку, которая должна работать с БД MySql. Работаю с MySql API, т.к. был опыт работы с ней на с++, но сейчас требование писать на FreePascal+кроссплатформенность, посему юзаю Lazarus.
Вот код работы с БД:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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", возвращает, но есть одна проблема, вначале идут несколько "мусорных" символов. Подскажите глупому,куда копать.