Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

попытка №2 [D5]

Serg2002 © (2002-05-14 05:01:00)
Привет мастера!!!
Ну никак не могу выполнить команду c рисунком Cохранить как.... Сохраняет Имя_рисунка в папке, но какой-то файл без расширения (значек винды). В Фильтре стоят стандартные установки. Не могу врубиться. Правда исходник по второй кнопке взят из русской справки к Д5, правда там обработчик применяется к ОпенДиалог, а не к ОпенПикчерДиалог. :(( Думаю вся беда из-за этого. Кто смелый, подскажите, как быть??

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var FileName:string;
begin
SavePictureDialog1.FileName:=FileName;
if SavePictureDialog1.Execute then
FileName:=OpenPictureDialog1.FileName;
Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;

Севостьянов Игорь (2002-05-14 12:07:00) [1]
Но исходя из кода проще исправить исходный код так:

procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; procedure TForm1.Button2Click(Sender: TObject); //var FileName:string; begin //SavePictureDialog1.FileName:=FileName; if SavePictureDialog1.Execute then //FileName:=OpenPictureDialog1.FileName; Image1.Picture.SaveToFile(SavePictureDialog1.FileName); end;

Имя файл, что ввели в диалоге Save и будет тем самым (включая и путь и расширение) - ежели хотите по умолчанию bmpтак настрой у себя диалогах DefaultExtи загляни в св-во Options

Да Image1.Picture.Graphic.ClassName- можно определить имя класса и самому в проге подставить DefaultExt

Вопросы по мылу

Reindeer Moss Eater (2002-05-14 08:52:00) [2]
....SaveToFile(ChangeFileExt(FileName,".bmp"));

=) (2002-05-14 08:44:00) [3]
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var FileName:string;
begin
SavePictureDialog1.FileName:=FileName;
if SavePictureDialog1.Execute then
FileName:=OpenPictureDialog1.FileName;
Image1.Picture.SaveToFile(SavePictureDialog1.FileName +".bmp"</>);
end;

Song (2002-05-14 08:42:00) [4]
2Serg2002 (14.05.02 05:01)
Прикольный у Вас код.
Запись в файл у Вас произоидёт даже если пользователь нажмёт "Отмена" в окне диалога записи.
К тому же зачем строка SavePictureDialog1.FileName:=FileName;? И что такое FileName? Не проинициализированная переменная, которая может содержать всё что угодно?

BAHO (2002-05-14 05:44:00) [5]
Попробуй загонять имя файла в отдельную переменную и коректируй имя програмно...

P.S.
Люди вы чё ленитесь проги олаживать !?

Наверх

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