Запись двоичного файла

[Tzap]

Добрый день. Подскажите как считанные из sql двоичные данные (картинка) через Nav записать в файл. Пробую примерно следующий код

ADORecords := ADOCommand.Execute;
ADOFields := ADORecords.Fields;
ADOField := ADOFields.Item('ImageData');
VarImage := ADOField.Value;

ImageFile.TEXTMODE(FALSE);
ImageFile.CREATE('с:\image.jpg');
ImageFile.WRITE(VarImage);

VarImage - переменная Variant, через Binary вообще получается
записать в файл не получается, возникает ошибка про типы данных. Как корректно произвести запись в файл? через потоки?

[Raul]

Используй ADOSteram ('Microsoft ActiveX Data Objects 2.8 Library'.Stream)
Например так

ADORecords := ADOCommand.Execute;
ADOFields := ADORecords.Fields;
ADOField := ADOFields.Item('ImageData');
ADOStream.Mode := 3;
ADOStream.Type := 1;
ADOStream.Open;
ADOStream.Write(ADOField.Value);
ADOStream.SaveToFile('с:\image.jpg');
ADOStream.Close;

[Tzap]

Спасибо, работает!