@himitsu: Ja, davon habe ich schonmal gehört. Die Frage ist, wie lange es dauert das auszuführen. Ich bastel gerade mit Jpg's. Also wenn ich Quality 30 setzte, das hämmer ich ein 1,1MB BMP runter auf ein 14KB JPG! Finde ich ziemlich gut, den ich sehe keinen großen Unterschied. Und bei meiner langsamen Leitung (6000 Down, 600 UP!; Durch Ausbau im Dorf bald 50.000
), wäre das dann optimal
Aber es hängt an einer Stelle. Habe es bis zum Empfangen umgesetzt, bekomme aber den JPEG Fehler #42:
Delphi-Quellcode:
procedure TfrmCam.CamServerExecute(AContext: TIdContext);
var
FStream: TMemoryStream;
ReceivePic: TJPEGImage;
begin
FStream := TMemoryStream.Create;
ReceivePic := TJPEGImage.Create;
try
AContext.Connection.Socket.ReadStream(FStream);
finally
try
FStream.Position := 0;
ReceivePic.LoadFromStream(FStream);
RVideo.Picture.Assign(ReceivePic);
finally
FStream.Free;
ReceivePic.Free;
end;
end;
end;
Okay, meinen ersten Fehler habe ich gelöst, gab ein Problem bei der größe des VideoFensters auf der ClientSeite (oben ist der Server). Doch nun gibt es beim stoppen einen fehler, ich schau nochmal und poste dann mal meinen Arbeitstand.