Вставка 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

Хм, мне тоже не нравиться, а что это такое?

Вообще-то "ему не нравится bmRe adWrite" противоречит "fmOpenRead);-ошибка!!".
Играем дальше в угадайку?

← →
API (2006-02-24 19:15) [5]

ему не нравится bmRe adWrite

Замените "bmRe adWrite" на "bmWrite".

(Пытаясь завести машину перочинным ножом...)

Вставка BLOB из файла... Найти похожие ветки