Цитата:
|
Сообщение от Assistant
дык ты измени то что предложил Страдалецъ, например вот так:
Код:
TBlobField(AdoQuery1.FieldByName('Photo')).LoadFromFile(OpenDialog1.FileName); если нужно один файл записать
P.S. в его способе записывается несколько выбранных файлов в цикле i |
Всё равно выдаётся ошибка "Синтаксическая ошибка в имени файла..."
Кстати, попробовал немного иначе сделать:
Код:
var MS : TFileStream;
i: Integer;
begin
MS := TFileStream.Create('D:\1\1.bmp',fmOpenReadWrite);
with ADOQuery1 do try
SQL.Text := 'Insert Into temptable (photo) Values (:pmphoto)';
Parameters.ParamByName('pmphoto').LoadFromStream(MS, ftBlob);
ExecSQL;
finally
MS.Free;
end;
end;
Проверяю в MS SQL - файл записывается...но почему-то Grid в программе очищается.