Sende billede til browser

Altså koden til at tage et screenshot???

ville det ikke være meget nemmere at tage screenshotet (skal du have koden til det?) gemme det, uploade det til den respektive server, med det respektive navn (blot overskrive sig selv hele tiden) og derefter får html dokumentet til at opdatere sig selv (det lyder lidt som en web-cam af din pc-skærm - hvilket er en fed idé :p)

Bare en løs tanke :-)

og html koden skal jo blot være <img src="mitscreenshot.jpg"> som programmet gemmer på serveren

noget andet så er det mig bekendt ikke sådan lige at streame noget til browser, men fx ASP komponentet aspUpload har en funktion til at streame et billed til en browser, i stedet for at det ligger fysik tilgængeligt på nettet, hvilket jo kunne være et af dine motiver? så kan man jo stadig bruge programmet til at ligge det blot i en beskyttet mappe på serveren, og få aspUpload til at streame billedet til brugerens browser fx hvert 10. sekundt

Jeg har ikke noget problem med at tage et screenshot. Problemet ligger i at sende det til browseren (DIREKTE) ligesom en webserver ville gøre det hvis den fik en request på et billede...

det er nok derfor aspUpload ikke er noget billigt komponent :)

tror at det kræver en del kendskab til browserens kommunkationsform og hvordan det egenligt skal streames. Alternativt kunne du jo lave et program til klienten, som modtog dette billed - det ser jeg som en klart lettere måde at løse det på, hvis altså du kan leve med det :)

Det kan jeg ikke leve med. Jeg ved det er forholdsvis simpelt. Har gjort det før. Det er bare længe siden.

Kode til at tage screenshot og gemme som jpg kan jeg hjælpe med:

procedure SaveScreenShotAsJpg(JpgFilename:string);
var
  Desktop: HDC;
  TempBitmap: TBitmap;
  TempJpg:TJPEGImage;      //NB 'jpeg' skal tilføjes "uses" , se længer nede ang. "uses"
begin
  TempBitmap  := TBitmap.Create;  //først oprettes et "tomt" Bitmap
  Desktop := GetDC(0);

    try
      TempBitmap.PixelFormat := pf32bit;    //Bitmap "påfyldes" skærmbilledet
      TempBitmap.Width      := Screen.Width;
      TempBitmap.Height      := Screen.Height;
      BitBlt(TempBitmap.Canvas.Handle, 0, 0, TempBitmap.Width, TempBitmap.Height, Desktop, 0, 0, SRCCOPY);
      TempBitmap.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;

  TempJpg := TJPEGImage.Create;  // der oprettes et "tomt" jpg
  TempJpg.Assign(TempBitmap);    // jpg får indhold fra bitmap
  TempJpg.SaveToFile(JpgFilename); //jpg gemmes
  TempBitmap.Free; //der ryddes op. Dvs. hukommelse frigives
  TempJpg.Free;

end;



// Jonat...

Tak Jonat det var sgu fornemt :)

Så mangler jeg bare en som kan fortælle mig hvordan jeg sender det til en browser.

Ja. :-)

Det med at sende til browser kan jeg så bare ikke hjælpe med....

Men velbekom... :-D

Det er dejligt at kunne være behjælpelig...


// Jonat

Hmm... Det kan da umuligt være umuligt.

Ville jeg måske få noget ud af at kigge efter hvordan en webserver gør det?

Grunden til at jeg skrev jeg ikke kan hjælpe med at sende til browseren er at jeg er, ikke helt ny i delphi, men har ikke programmeret i mere end 3 år som min hobby, oh har ikke været inde under det med at sende ting via. internet. (jeg går stadig i folkeskolen... :-) ).

Hvorhenne er det den webside ligger?? Er det noget der skal uplodes via FTP? eller er den der tager screenshoot'et server for hjemmesiden, eller noget helt tredie??

// Jonat.

tag et kik på Indy's TIdTCPServer. Med den kan du kommunikere med et kald på en port fx. 1234, så er det bare et spørgsmål om at vide hvordan man skal håndtere det - jeg har forsøgt uden held, men det kan være du gør det rigtigt.

Det du skal sende til browseren er simpelthen JPEG-billedets bitdata fra start til slut, så skal det nok blive tolket af browseren som et billed :p

Nogle som har fundet en løsning?

Hvor svært kan det være :)