FreePascal.ru

Sergei I. Gorelkin
Большое спасибо.

Есть код на Си:

Что значит этот код и как его изобразить в Паскале.
Очень сильно друг просил решить сию задачу, помогите плиз.

Решил вопрос юзаньем TFileStream
Всем спасибо

Решил этот вопрос сам, след. вопрос: при записи в файл пишутся первые 4 байта, потом пишется почему-то символ конца строки и 3 нуля, после этого все данные идут нормально. Т.е. 4 байта информации теряются.
Что делать???

есть такой код:

var
fn: String;
ptr: Pointer;
f, size, len: Integer;
begin
fn := BuildFileName(FPath, AName);
f := FileOpen(fn, fmOpenRead);
size := FileSeek(f, 0, fsFromEnd);
FileSeek(f, 0, fsFromBeginning);
ptr := GetMem&#40 ...

Короче поставил Лазаря версии 0.9.17 (тестовая), там компоненты для работы с мускулем разделены по версиям, коннект вроде как теперь проходит, пытаюсь выполнить запрос, TSQLQuery ругается, мол давай мне транзакцию - пихаю ему транзакцию, приложение при запуске вылетает с исключением TDatabaseEror ...

Копирую libmysql.dll из пятой версии в папку c:\windows\system32
Лазарь продолжает ругаться, мол давай мне 4-ю версию.

С 4-м та же петрушка

Atrus
Стоит клиент версии 5, не пашет

Лазарь ругается на клиента MySQL, мол могу работать только с клиентами Мускуля версии 4.0.х и выше, что делать?