Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];
ВнизВставка BLOB из файла... Найти похожие ветки
← →
VitV © (2006-02-24 14:18) [0]procedure TForm1.DBImage1Click(Sender: TObject);
var S:TStream;
FileS:TFileStream;
begin
if not OpenDialog1.Execute then exit;
Reestr.IBDataSet3.edit;
S:=Reestr.IBDataSet3.CreateBlobStream(Reestr.IBDataSet3.FieldByName("FOTO"),bmRe adWrite);
try
FileS:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);-ошибка!!
S.CopyFrom(FileS,FileS.Size);
finally
FileS.Free;
S.Free;
Reestr.IBDataSet3.Post;
end;
end;
← →
Desdechado © (2006-02-24 15:37) [1]а LoadFromFile не проще ли?
ps файл может быть заблокирован чем-то для монопольного доступа, и его нельзя даже для чтения открыть
← →
VitV © (2006-02-24 18:08) [2]ему не нравится bmRe adWrite :(
← →
Плохиш © (2006-02-24 18:17) [3]
> VitV © (24.02.06 18:08) [2]
> ему не нравится bmRe adWrite
Хм, мне тоже не нравиться, а что это такое?
← →
Desdechado © (2006-02-24 18:25) [4]Вообще-то "ему не нравится bmRe adWrite" противоречит "fmOpenRead);-ошибка!!".
Играем дальше в угадайку?
← →
API (2006-02-24 19:15) [5]ему не нравится bmRe adWrite
Замените "bmRe adWrite" на "bmWrite".
(Пытаясь завести машину перочинным ножом...)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c