почему TOpenPictureDialog вызывает исключение

← →
foreverDelphi © (2007-10-13 00:09) [0]

в главном потоке если бросить компонент на форму и открыть окно не запуская приложения, в окне отображаються при выборе GIF файлы, в запущенном виде при выборе GIF получаем ошибку, вот например код:

procedure TThreadOpenPictureDialog.Execute; begin threadOpenPictureDialogFileName:=""; formOpenPictureDialog:=TOpenPictureDialog.Create(nil); formOpenPictureDialog.InitialDir:=applicationDir; formOpenPictureDialog.Options:=formOpenPictureDialog.Options+[ofNoChangeDir]; formOpenPictureDialog.OnFolderChange:=folderChange; formOpenPictureDialog.Filter:="рисунки ()|*.bmp;*.jpg;*.jpeg;*.gif|"; if formOpenPictureDialog.Execute then begin threadOpenPictureDialogFileName:=formOpenPictureDialog.FileName; SendMessage(form2.GraphicsMemo17.Handle,WM_USER,0,21); end; formOpenPictureDialog.Free; end;

может кто-то сталкивался и знает как лечить?

← →
Johnmen © (2007-10-13 00:22) [1]

С такой секретной ошибкой никто не сталкивался.

← →
Германн © (2007-10-13 00:28) [2]

> в главном потоке если бросить компонент на форму и открыть
> окно не запуская приложения

Бред какой-то.

← →
foreverDelphi © (2007-10-13 00:28) [3]

и вообще, почему в запущеном приложении окно не показыват картинку при выборе Gif, хотя в незапущенном приложении первый кадр Gif отоборажаетя

← →
turbouser © (2007-10-13 01:08) [4]

> [0] foreverDelphi © (13.10.07 00:09)

Гифы по умолчанию не поддерживаются. Из-за лицензии наверное.
Подключай сторонние юниты. В RXLib кажется было и в jedi есть.

← →
turbouser © (2007-10-13 01:11) [5]

> [0] foreverDelphi © (13.10.07 00:09)

Версию Delphi и текст ошибки между прочим надо было бы привести.
Иначе сплошная телепатия.

Да заодно и про доппотоки тоже следует привести более полную информацию.

разобрался с ошибкой :) моя вина :)
а с гиф, черт с ним

> foreverDelphi © (13.10.07 01:54) [7]
>
> разобрался с ошибкой :) моя вина :)

Ну тут, у нас на форуме, принято сообщать решение. В надзидание потомкам!
:-)

почему TOpenPictureDialog вызывает исключение Найти похожие ветки