Сохранение изображения с Image

[brutos]

Привет. Пытаюсь реализовать чтобы в программе вылазило окно которое будет сохранять изображение в любое место. Как это сделать?

Код:

procedure TForm1.B_GetScrClick(Sender: TObject);
var
 s:TFileStream;
 Bitmap: TBitmap;
 PNG: TPNGImage;
begin
 //Подключаемся к серверу
 connect_to_server;
 //Посылаем серверу комманду "get_screen "
 IdTCPClient1.WriteLn('get_screen ');

 with IdTCPClient1 do
 begin
   if FileExists('C:\s.png') then DeleteFile('C:\s.png');
   //Создаем поток
   s := TFileStream.Create('Filename',fmSaveToStream);
   //Пока есть соединение читаем данные
   while connected do
        ReadStream(s,-1,true);
   //Уничтожаем поток
   FreeAndNil(s);
   //Отключаемся
   Disconnect;
   Image1.Picture:=nil;

   //Выводим полученный скриншот на экран
   PNG := TPNGImage.Create;
   Bitmap := TBitmap.Create;
   try
    PNG.LoadFromFile('C:\s.png');
    Bitmap.Assign(PNG);
    Image1.Picture.Bitmap.Assign(Bitmap);
   finally
    PNG.Free;
    Bitmap.Free;
   end;
 end; //end - with
end;

[SERG1980]

Вам нужно с другово компа получить изображение?

[brutos]

Да. Я делаю скриншот и он сохраняет его C:\s.png' по-умолчанию. А мне надо чтобы вылазило окно, позволяющее сохранить его куда сам захочу.

[SERG1980]

Используйте компонент SaveDialog

 if savedialog1.Execute then
 bitmap.SaveToFile(savedialog1.FileName);

только настройте фильтор этотого компонента например на *.bmp

[brutos]

Я пробовал, но при нажатии клавиши зацикливается процесс сохранения(((

[SERG1980]

Сообщение от brutos

Я пробовал, но при нажатии клавиши зацикливается процесс сохранения(((

а в каком месте вы это пробуете

[brutos]

Вместо if FileExists('C:\s.png') then DeleteFile('C:\s.png');

[brutos]

Я только начал программит, поэтому не суди строго)))