SaveDialog

[netscanner]

Hi ich habe folgendes Problem...

Delphi-Quellcode:

procedure TForm1.ServerExecute(AThread: TIdPeerThread);
Var BILD:TFilestream;
    SizeOfIncomingStream: integer;
begin
  Savepic.FileName := '123.bmp';
   savepic.Execute;
   // Savepic.FileName<>'';
  BILD := TFileStream.Create(Savepic.FileName, fmCreate or fmShareExclusive);
  with AThread.Connection do
  begin
  try
      SizeOfIncomingStream := ReadInteger;
      ReadStream(BILD,SizeOfIncomingStream);
  finally
      BILD.Free;
      disconnect;
  end;
  end;
    IM_Server.Picture.loadfromfile(savepic.filename);
end;

Dieser Code speichert ein Bild aus einem Stream und zeigt das gespeicherte Bild dann an...
Unschön daran ist, dass dabei jedes mal so ein absolut hässlicher SaveDialog angezeigt wird, den man mit "Speichern" bestätigen muss.
Habt ihr einen Tipp, wie ich das ohne SaveDialog machen kann?

[Neutral General]

Was ist denn SavePic ?
Du kannstes doch einfach ohne den Dialog machen.
Angenommen SavePic: TPicture;

SavePic.SaveToFile('123.bmp'); würde doch dann gehn ohne Probleme...

Gruß
Neutral General

[netscanner]

savepic ist der Tsavepicturedialog

[Flare]

Nimm einfach das
SavePic.Execute; raus
Damit wird der Dialog aufgerufen Man kann das ganze aber auch Besser lösen...ohne SaveDialog!


Flare

[netscanner]

@ flare: und wie
wenn ich savepic.execute rausnehme geht das ganze ding unerklärlicherweise net mehr,,,

[Christian Seehase]

Moin Netscanner,

wovon hängt denn der Dateiname ab?