Проблема с потоками

← →
wolchonok29 (2007-04-10 20:30) [0]

У меня есть просьба: посмотрите код и укажите ошибки или недочетыю.
Есть процедура принятия потока и сохранения его в файл и отображения в
компоненте image. При первой операции проходит все хорошо, но на втором
разе программа выкидывает ошибку.
Клиент и сервер основаны на компонентах TIdTCPClient и TIdTCPSerever. Ниже
приведен код процедуры, которая вызывается клиентом (клиент посылает
команду SCREEN):
procedure TForm1.ServerSCREENCommand(ASender: TIdCommand);
var
Stream:TmemoryStream;
ip,di:string;
begin
Stream:=TmemoryStream.Create;
try
Asender.Thread.Connection.ReadStream(Stream,-1,false);
ip:=Asender.Thread.Connection.Socket.Binding.peerIP;
di:=datetostr(date);
forcedirectories(dellastslash(application.ExeName)+"export\"+ip+"\"+di);
stream.Position:=0;
jpeg:=TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromStream(stream);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
image1.Picture.Bitmap:=bmp;
Stream.SaveToFile(dellastslash(application.ExeName)+"export\"+ip+"\"+di+"\"+delpoint(timetostr(time))+".jpg");
finally
bmp.Free
end;
finally
jpeg.Free;
bmp.Free;
end;
finally
Stream.Free;
end;

← →
SlymRO © (2007-04-11 05:14) [1]

bmp.Free
end;
finally
jpeg.Free;
bmp.Free;

← →
wolchonok29 (2007-04-11 09:52) [2]

> bmp.Free;

Спасибо, SlymRO, не заметил

Проблема с потоками Найти похожие ветки