Registriert seit: 1. Aug 2007
Ort: Melsungen
155 Beiträge
Delphi 7 Professional
|
Re: Fehlermeldung beim mehrfachen versenden von Bildern
2. Feb 2008, 11:01
Also das ist die Procedure die das Image empfängt:
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
Var BILD:Tstream;
SizeOfIncomingStream: integer;
begin
bild:Tmemorystream.Create;
with AThread.Connection do
begin
try
SizeOfIncomingStream := ReadInteger;
ReadStream(BILD,SizeOfIncomingStream);
finally
BILD.Free;
disconnect;
end;
end;
Image1.Picture.Loadfrom //hier liegt das Problem, wenn ich das Bild aus dem Stream lade und dann in ein bmp umwandle kommt //nichts im Image an. Aber Loadfromstream geht ja auch nicht bei einem JPG, deswegen weiss ich nicht wie ich das gescheit in das //image laden soll.
Image1.Update;
end;
"Programmieren ist eine der universellsten, allübergreifendsten und höchsten von Menschen erreichten Formen der Kreativität."
Nur weil Gott die Welt in 6 Tagen erschaffen hat, heisst das nicht, dass Informatiker alles in 6 Tagen programmieren können.
|