Сохранение из Image

[Daivel]

Согласен. А как решить не подскажите? А то я уже ничего не соображаю(

[WinCoder]

ExtractFilePath(Application.ExeName)+'test.bmp' // или какое там разрешение у картинки?

Вообще у Вас вопросы новичка однодневки. Вы бы хоть почитали литературу... Или гугл...

[Daivel]

Можно сказать что я первый день и делаю.
А разве есть сделать так

Form3.Image1.Picture.Bitmap.SaveToFile(ExtractFilePath(Application.ExeName)) + 'test.bmp';

То мы не задаём жёсткое имя для файла?
Мне нужно что бы оно было тем же что и у файла который мы загружаем в Image.

[WinCoder]

То мы не задаём жёсткое имя для файла?

Задаём. Но Вы же не писали в топике какое имя Вам нужно, а я пока телепатии только учусь

Мне нужно что бы оно было тем же что и у файла который мы загружаем в Image.

тогда надо положить имя файла в переменную. Догадываюсь Что Вы пытались это сделать с переменной "Name", но опять же мои телепатические способности не позволяют увидеть косяк. Видимо придётся Вам выкладывать весь код.

[Daivel]

Уважаемый WinCoder про имя файла я писал в топике, под картинкой об ошибке. По поводу переменной Name вы угадали. И вот виновник торжества весь код:
Код формы С кнопкой на которую нажимают для сохранения:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtDlgs, StdCtrls, FileCtrl, ExtCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Windows1: TMenuItem;
    Support1: TMenuItem;
    Open1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    ListBox1: TMenuItem;
    FileListBox1: TMenuItem;
    N2: TMenuItem;
    Savew1: TMenuItem;
    procedure Open1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FileListBox1Click(Sender: TObject);
    procedure Savew1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses Unit3, Unit4, Unit2;
{$R *.dfm}


procedure TForm1.Open1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  with TForm3.Create(Application) do
  begin
    Caption:= OpenPictureDialog1.FileName;
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  end;
end;


procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;


procedure TForm1.ListBox1Click(Sender: TObject);
begin
Application.CreateForm(TForm4,Form4);
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
Application.CreateForm(TForm2,Form2);
end;


procedure TForm1.Savew1Click(Sender: TObject);
begin
  //Form3.Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName)) + 'qq.bmp'
end;

end.

[WinCoder]

Пишу по памяти, так что не обессудьте, если будут ошибки. Проверить не на чем. Я дам фрагменты, где что дописать

var
  Form1: TForm1;
  Name: String;
implementation

  begin
    Caption:= OpenPictureDialog1.FileName;
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    Name := OpenPictureDialog1.FileName;
  end;

procedure TForm1.Savew1Click(Sender: TObject);
begin
  Form3.Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + ExtractFileName(Name));
end;

[Daivel]

Ругается на переменную Name. Вот так ругается.

[WinCoder]

Поменяйте везде Name на что нибудь вроде ImageName. Внутри конструкции with среда развернула name до Form3.Name. А имя формы естественно не может быть таким.

[Daivel]

Открытие файла прошло успешно, но при сохранении выдало тот же результат что и раньше(

[WinCoder]

ShowMessage сделайте как и раньше, и проверьте правильность пути + имени файла. Если всё верно, то скорее всего ошибка кроется в попытке сохранения файла из чужой формы, или чего нибудь подобного. Нужно смотреть проект непосредственно в среде. А мне, честно говоря, лень. Надеюсь Вы сами сможете отыскать ошибку на базе моих подсказок. Во всяком случае учиться самостоятельно, это Вам только в плюс. Удачи.