Скачать: CL | DM;

попытка №2   Найти похожие ветки 

← →
Serg2002   (2002-05-14 05:01) [0]

Привет мастера!!!
Ну никак не могу выполнить команду 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;

---

← →
BAHO ©   (2002-05-14 05:44) [1]

Попробуй загонять имя файла в отдельную переменную и коректируй имя програмно...

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

---

← →
Song ©   (2002-05-14 08:42) [2]

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

---

← →
=)   (2002-05-14 08:44) [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;

---

← →
Reindeer Moss Eater   (2002-05-14 08:52) [4]

....SaveToFile(ChangeFileExt(FileName,".bmp"));

---

← →
Севостьянов Игорь ©   (2002-05-14 12:07) [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;


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

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c