попытка №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"));

Но исходя из кода проще исправить исходный код так:

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

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

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