TJPEGImage til String

Øhhh hest ikke ? Hvad mener du ?

Jens B

øhhh.... et billede til en streng ???

okay fra din home page er der en screen cap2. som bruger TJPEGImage. det TJPEGImage vil grene have lavet om til en string???

/ZIRON

Jeg fatter ikke helt hvorfor du vil lave et billede om til en streng ! Hvad er formålet med det ???

Snowball

ja det er det jeg gerne vil vide???

Ja, jeg er godt nok heller ikke helt med... :|

ZIRON >> Jeg er stadig ikke helt med ... Screen Cap. 2 fanger skærmen og truncere billeder, for så til sidst at gemme det som et JPEG billede .....

Hvordan vil du konvetere det til en streng ?

Jens B

jeg skal bruge det til noget netværk, og så vidt jeg ved man ikke sende TJPEGImage over net???

Hvorfor skulle du ikke kunne det ??

Aaahh nu er jeg med ... du kan bare sende det som en Stream ....

Jens N

det er det jeg ikke helt ved men noget med fx \'TJPEGImagetostr\'???

okay hvordan laver jeg en stream???

og kan man sende sådan en med fx \'Serversocket1.socket.sendtext\'????

/ZIRON

73 de wisen, I\'m out...

k boy...

Serversocket har også en metode, der sender binært. Hvad med at bruge den?

et hurtigt u testet hack siger du må kunne bruge noget alla det her :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, JPEG,
  StdCtrls, ScktComp;

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
  private
    ClientSocket: TCustomWinSocket;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


function ScreenCapture:TBitmap;
// this function captures the screen
var
  ScreenDC: HDC;
ARect:TRect;
begin
  Result := TBitmap.Create;
  ARect := Rect(0,0,Screen.Width,Screen.Height);
  Result.Width := ARect.Right - ARect.Left;
  Result.Height := ARect.Bottom - ARect.Top;
  ScreenDC := GetDC( 0 );
  try
    BitBlt( Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, ARect.Left, ARect.Top, SRCCOPY );
  finally
    ReleaseDC( 0, ScreenDC );
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  JPEGImage : TJPEGImage;
  MemoryStream : TMemoryStream;
  i : Integer;
begin
  JPEGImage := TJPEGImage.Create;
  Application.Minimize;
  SleepEx(10,false);
  JPEGImage.Assign(ScreenCapture);
  Application.Restore;

  MemoryStream := TMemoryStream.Create;
  JPEGImage.SaveToStream(MemoryStream);
  MemoryStream.Position := 0;
  i := MemoryStream.Size;
  ClientSocket.SendBuf(MemoryStream, 500);
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;Socket: TCustomWinSocket);
begin
  ClientSocket:= Socket;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket1.Active := true;
end;

end.


Jens B

(det kan i hvertfald kompilere .....)

Jens B

Dog vil jeg lige SELV gøre opmærksom på de 500 mem leaks det indeholder ....

Jens B

hvordan kan den gører det???

/ZIRON

Gøre hvad ?

Jesn B

okay tak for det, men jeg får denne fejl og kan ikke lige finde ud af hvad der er gald????

/ZIRON

det var til spectual...?

Jeg læser man ovenstående og tænker noget i retning af \'Godag mand økseskaft\'.

Ja jeg fatter heller ikke en hest !

Jeg venter på at ZION kommer på banen, med noget mere konkret ....

Jens B

okay noget gik galt i den kommentar...

er igang med at teste med borrisholt\'s eks...

men \"spectual\" snakkede om at man kunne sende binært, hvordan kan man gøre det????

/ZIRON

Det er det jeg gør .....

Jens B

ziron  >>> hvorlangt nåede du ?

Jens B

jeg er fårst lige kommet hjem fra skiferie og skal til at igang med det...

og okay jeg var ikke sikker på om du gjorde det samme som spectual, men okay...

jeg vil prøve....

/ZIRON

skiferie ?????????????? Sig mig skal du aldrig lave noget ? :-)

Nå men hvor mange lemmer er stadig hele ?

Jens B

jo jo selvfølgelig, og tro på det eller ej men intet er i vejen med mig...

jeg har lige prøvet og compile, det gik godt nok. men da jeg så trykkede på knappen og den skulle sende over nettet, kom der en fejl. jeg tror den er fordi buffen er for høj.

kan man ikke sætte den høje end 500???

/ZIRON

ZIRON>> Jo det kan du saktens og det skal du også du skal dende størelsen på den mængde data du sender .....

ZIRON... Kum nu bare er lille ben-brud ? Et lille et ?

Jens B

okay lidt sort, på dansk tak???

skal jeg bare ændre 500 til fx 500000????

ingen ben-brud men man er vel faldet et par gange...

/ZIRON

din MemoryStream har noget data \"i sig\". De data fylder en vis mængde bytes. Dem skal du have målt og give med til funktionen som argument ...

Jens B

okay, hvordan kan jeg måle det, ved at lave et stop i koden???

nu er jeg ikke en rigtig delphi nød, men hvordan sætter man det med som argument på en funktion???

/ZIRON