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

← →
Делфёст (2006-03-05 15:47) [0]

Сохраняю фото как графический объект 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-05 15:53) [1]

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

← →
Делфёст (2006-03-05 22:57) [2]

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

← →
АРІ (2006-03-06 04:47) [3]

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-06 08:34) [4]

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

← →
API © (2006-03-06 08:49) [5]

Ругается на CreateBlobStream

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

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

← →
Делфёст (2006-03-06 09:04) [6]

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

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

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

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

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

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

← →
Делфёст (2006-03-06 10:21) [9]

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

Глюки после вставки фото Найти похожие ветки