Скачать: CL | DM;

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c