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?