|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ошибки в коде после удаления unit-а
Удалил лишний Unit, после попробовал разорвать связи с другими формами - в итоге накосячил очень сильно, много чего исправить удалось, но эту ошибку исправить не могу:
(First chance exception at $75713E28. Exception class EFOpenError with message 'Cannot open file "E:\Диплом\SANTRANS\Win32\Release\image\v.png" . Системе не удается найти указанный путь'. Process Project1.exe (536) Код:
procedure TForm11.Button4Click(Sender: TObject); var piccc: string; begin Form10.ADOQuery1.Edit; if Form11.OpenPictureDialog1.Execute then Form11.DBMemo1.Text:=Form11.OpenPictureDialog1.FileName; piccc:=Form11.DBMemo1.Text; Form11.Image1.Picture.LoadFromFile(piccc); Form10.ADOQuery1.Post; end; |
#2
|
|||
|
|||
1. На какой строке вылетает эксепшн в приведенном коде?
На LoadFromFile? Тогда добавь где-нить в проекте в uses модуль для работы с png (PNGImage или как он там называется) - тогда кодек сам зарегистрируется. Ну если файл существует, конечно. 2. Принципиальная ошибка в коде. Что будет, если нажать Отмена в диалоге выбора файла? Код должен быть примерно таким: Код:
procedure TForm11.Button4Click(Sender: TObject); var piccc: string; begin if Form11.OpenPictureDialog1.Execute then begin Form10.ADOQuery1.Edit; Form11.DBMemo1.Text:=Form11.OpenPictureDialog1.FileName; piccc:=Form11.DBMemo1.Text; Form11.Image1.Picture.LoadFromFile(piccc); Form10.ADOQuery1.Post; end; end; |