Dmitri Kuzmenko wrote:
> Hello, freemanzav!
>
> freemanzav wrote:
>
> > К тому же IBBatch работает только с IBX, ну к
> > FIB его можно прикрутить, ведь работает
>
 . В исходные тексты надо иногда
> заглядывать, не все ж компоненты на формы бросать :-)

Перед тем как использовать компонент в
реальных целях я всегда смотрю
исходники.
>
> > тому же в Delphi 5 в нем ошибка при работе с
>
> что такое Delphi 5 ? :-)
Среда разработки такая. И в его
поставку входит модуль IBSQL.pas
написанный
Gregory H. Deatz (шоб он был здоров). И тама
есть такой незамысловатый код:
function TIBOutputRawFile.WriteColumns: Boolean;
...
begin
...
    for i := 0 to Columns.Count - 1 do
    begin
      WriteFile(FHandle, Columns[i].Data^.sqldata^,
Columns[i].Data^.sqllen,
                BytesWritten, nil);
      if BytesWritten <> DWORD(Columns[i].Data^.sqllen) then
        exit;
    end;
...
end;
Называица - найди две ошибки.

Ответить