Screenshot über Sockets als JPEG versenden

[Union]

Zitat von Neuni:

Zitat von MasterC:

GraphicEx musst du einfach nur einbiden und schon kannst du die Formate lesen. Ein TImage direkt in einen Stream speichern geht glaube ich nicht, du könntest es ja erst in eine Datei speichern und dann schicken.

Das mit der Datei wollte ich gerade verhindern, da es dadurch länger dauert. Wenn ich die dateien im RAM behalte geht es schneller (Es werden ja alle paar sekunden bilder übertragen)

Aber es müsste mit
TImage.Picture.Graphic.SaveToStream gehen.

[Neuni]

Mein Problem ist erstmal nur:

Wie bekomm ich das JPEG Bild in den stream und da auch erfolgreich wieder raus, sodas ich das dann auf dem Imahe auf dem anderen Computer sehe?

[Beckman]

hi neuni!

schau dir mal das projekt im anhang an.

und ins jpg konvertierst du bitmaps so:

uses jpeg;

Delphi-Quellcode:

procedure TForm1.Saveasjpg1Click(Sender: TObject);
var
   jpg: TJpegImage;
begin
//init
jpg := nil;

if savedialog1.Execute then begin
  try
    jpg := TJpegImage.Create;
    jpg.Assign(image1.Picture.Bitmap);
    //Hier können JPG-Eigenschaften wie Kompression, Größe usw. gesetzt werden
    
    jpg.SaveToFile(SaveDialog1.filename);
    finally
      jpg.Free;
      end;
  end;
end;

[Neuni]

Danke, das is gut...aber ich wollte das ganze mit den sockets programmieren (Frag bitte nicht warum )

Also die ausgabe vom "JPEG-Umwandler" könnte ich ja per
jpg.SaveToStream(stream); in nen Stream packen, oder?

So, nun kann ich ja diesen Stream verschicken.
clientsocket1.Socket.SendStream(stream) müsste gehen oder?

PS: Müsste der stream dann nen TStream sein, oder nen TFileStream?

[Beckman]

das muesste doch aehnlich funken wie bei den indy sockets

und stream ist da das richtige.

[Neuni]

Jetzt hab ich dat einfach so gemacht, aber dann kommt nen "ABstrakter Fehler":

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   jpg: TJpegImage;

begin

//init
jpg := nil;


  try
    jpg := TJpegImage.Create;
    jpg.Assign(image1.Picture.Bitmap);
    //Hier können JPG-Eigenschaften wie Kompression, Größe usw. gesetzt werden

    jpg.SaveToStream(stream);
    finally
      jpg.Free;
      end;
  end;

[Neuni]

Keiner ne idee?

[alcaeus]

Hi Neuni,

wenn ich mich nicht irre dann musst du den Stream auch erzeugen. Außerdem würde es uns helfen zu wissen WO der abstrakte Fehler auftritt (beim Start, beim jpg.Assign, ...)

Greetz
alcaeus

[fiasko]

Hallo,

abstrakter Fehler heißt du nimmst eine Methode eines Objektes für die keine Implementierung existiert. Ich vermute einfach mal dein "stream" ist ein TSream - das geht natürlich nicht da die ganze Klasse Abstract ist. Nimm doch einfach z.B. TMemoryStream oder wie das Ding hies!

[Neuni]

Also erstellt hab ich den stream ja jetzt eigendlich mit Tmemorystream.create, und dat speichern in den stream geht nun auch, ohne dass er was sagt, aber wie bekomm ich das bild nun wieder aus dem stream raus?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
stream := Tmemorystream.Create;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
   jpg: TJpegImage;

begin

//init
jpg := nil;


  try
    jpg := TJpegImage.Create;
    jpg.Assign(image1.Picture.Bitmap);
    //Hier können JPG-Eigenschaften wie Kompression, Größe usw. gesetzt werden

    jpg.SaveToStream(stream);
    finally
      jpg.Free;
      end;
  end;

Wenn ich stream.SaveToFile('C:\lolka.jpg'); nehme, dann kann ich dat bild speichern, das geht auch, aber wie bekomm ichs ins image ohne zwischenspeichern?