| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Глюки после вставки фото

Делфёст ©   (2006-03-05 15:47:00) 

Сохраняю фото как графический объект Ole,
одновременно вставляю фотку в Image1
TbPersonalPhoto.LoadFromFile(edit7.Text);
размер 15x15 24bit
после чего начинаются непонятные глюки и при выходе из программы пишет ошибку.
Application.Error

с таким текстом
Exception EAccessViolation in module Project1.exe at 00000000.
AccessViolation at address 00000000. Rwad of address 00000000

---

Делфёст   (2006-03-06 10:21:00) [1]

Ну простите простите, зеленый еще и никогда не работал с потоками!:)
я просто не знал как вставлять фото! Хотя я мог бы и сам догаться! ольшое спасибо за помощь!:)

---

API   (2006-03-06 09:23:00) [2]

Или давайте, сделайте проще.

Киньте на форму в подходящее место TDBImage, подключите его к DataSource, укажите поле (как там у Вас - "Photo"). Добавьте OpenPictureDialog, кнопку "Обзор...", и на нажатие кнопки:

if OpenPictureDialog.Execute then
 DBImage.Picture.LoadFromFile(OpenPictureDialog.FileName);

---

API   (2006-03-06 09:16:00) [3]

Как все запущенно...

Давайте сюда свой код: список подключенных модулей, объявление класса и реализацию метода, в котором компилятор сообщает "неизвестный идентификатор".

---

Делфёст   (2006-03-06 09:04:00) [4]

Нет, я разобрался... заметил, все правильно записал!
TbPersonal это компонент TADOTable

---

API   (2006-03-06 08:49:00) [5]

Ругается на CreateBlobStream

Тогда еще раз возвращаемся к тому, что у Вас такое TbPersonal...

Возможно, ругается на "Fi ledByName" - там опечатка. Должно быть "Fi eldByName". А Вы что, просто скопировали текст в Delphi Editor, не разобравшись что к чему?

---

Делфёст   (2006-03-06 08:34:00) [6]

Ругается на CreateBlobStream
неизвестный идентификатор

---

АРІ   (2006-03-06 04:47:00) [7]

TADOTable вставлять ее... везде примеры TQuery

А чем принципиально отличается ADOTable от Query?

var
 Stream1: TStream;
 Stream2: TStream;
begin
 Stream1 := TFileStream.Create(Edit7.Text, fmOpenRead );
 try
   TbPersonal.Edit;
   Stream2 := TbPersonal.CreateBlobStream(TbPersonal.FiledByName('Photo'), bmWrite);
   try
      Stream2.CopyFrom(Stream1, Stream1.Size);
      TbPersonal.Post;
   finally
     Stream2.Free;
   end;
 finally
   Stream1.Free;
 end;
end;

---

Делфёст   (2006-03-05 22:57:00) [8]

Это таблица
TbPersonal['Photo'] можно записать и TbPersonalPhoto
только TbPersonal['Photo'].LoadFromFile(edit7.Text); так картинка не вставляется, я знаю только один способ
TbPersonalPhoto.LoadFromFile(edit7.Text);
где Edit7.text путь до вставляемой картинки
может из за него глюк... но если я не правильно вставляю картинку, подскажите как через компонент TADOTable вставлять ее... везде примеры TQuery!

---

АРІ   (2006-03-05 15:53:00) [9]

А что это такое: TbPersonalPhoto?

---

Наверх