TJPEGimage

[himitsu]

Wenn du echt alle probiert hättest, dann würde es jetzt gehn!

Was hast du denn aktuell für Code?

[Detrox]

aktuell immer noch diesen

Delphi-Quellcode:

var
  myClient: TidHTTP;
  myMemoryStream: TMemoryStream;
  myJPEG: TJPEGimage;
begin
  myClient := TidHTTP.Create(Self);
  myMemoryStream := TMemoryStream.Create;
  myJPEG := TJPEGImage.Create;

  try
    myClient.Get('http://meinbild.de/bild.jpg', myMemoryStream);
    myMemoryStream.Position := 0;
    myJPEG.LoadFromStream(myMemoryStream);
  finally
    myJPEG.Free;
    myMemoryStream.Free;
    myClient.Free;
  end;
end;

habe halt versucht aus dem JPEg EIn TImage zu machen aber das funktioniert halt nicht un in der Bilddatei direkt lesen ist glaube ein wenig zu hoch für mich. Sry das ich mich so blöd anstelle .

[Detrox]

Zitat:

Zitat von himitsu

TJPEGImage ... vielleicht fällt dir was auf :?:

TGifImage ... TBitMap ...


nimm TGraphic oder TPicture und binde die Units für GIF und JPEG mit ein, diese sollten ihre Grafikformate dann automatisch bei TGrafic/TPicture registrieren und über dieses genutzt werden können.

Hi, also bei TPicture gibt es aber kein Loadfromstream :|

[Klaus01]

Zitat:

Zitat von Detrox

Hi, also bei TPicture gibt es aber kein Loadfromstream :|

Guten Morgen,

TGraphic aber schon.

Grüße
Klaus

[Detrox]

Ok, werd ich mal ausprobieren, dann muss ich nur noch die png/gif Unterstützung runter laden von Torry ?

[turboPASCAL]

Zitat:

Zitat von Klaus01

TGraphic aber schon.

Das wird aber dann krachen. ;)

[Detrox]

turboPascal was meinst du damit?

LG
Detrox

[Tyrael Y.]

Mach ein TImage auf eine Form und einen Button.
Dann folgenden Code testen.
Sollte finktionieren.

Und danach bitte jede Zeile genau angucken und versuchen zu verstehen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 GetImage();
end;

procedure TForm1.GetImage();
var
  myClient: TidHTTP;
  myMemoryStream: TMemoryStream;
  myJPEG: TJPEGimage;
begin
  myClient := TidHTTP.Create(Self);
  myMemoryStream := TMemoryStream.Create;
  myJPEG := TJPEGImage.Create;

  try
    myClient.Get('http://www.delphipraxis.net/images/pages/impressum/daniel_wolf.jpg', myMemoryStream);
    myMemoryStream.Position := 0;

    Image1.Picture.Graphic := myJPEG;
    Image1.Picture.Graphic.LoadFromStream(myMemoryStream);


  finally
    myJPEG.Free;
    myMemoryStream.Free;
    myClient.Free;
  end;
end;

[turboPASCAL]

Delphi-Quellcode:

Picture.Graphic.LoadFromStream(..)

wird einen Fehler verursachen, das hat mit dem Aufbau von TGraphic zu tun.


Wenn du Bilder vom Web laden willst kennst du doch deren Endung, also .jpg. bmp. .gif etc.
danach kannst du entscheiden wie und was du laden möchtest.

zB.:

Delphi-Quellcode:

uses ..., IdHTTP, PngImage, Jpeg, GifImage;

// ...

function DownloadImageByName(const URL : string; Image: TImage): Boolean;
var
  idHttp: TIdHTTP;
  ImgStream: TMemoryStream;
  FExt: String;
begin
  Result := False;

  if ASSIGNED(Image) then
  begin
    ImgStream := TMemoryStream.Create;
    try
      idHttp := TIdHTTP.Create(nil);
      try
        idHttp.Get(URL, ImgStream);
      finally
        idHttp.Free;
      end;

      if ImgStream.Size > 0 then
      begin
        FExt := ExtractFileExt(URL);
        ImgStream.Position := 0;

        if AnsiLowerCase(FExt) = '.bmp' then
        begin
          Image.Picture.Assign(TBitmap(ImgStream));
          Result := True;
        end else
        if (AnsiLowerCase(FExt) = '.jpg') or( AnsiLowerCase(FExt) = '.jpeg') then
        begin
          Image.Picture.Assign(TJpegImage(ImgStream));
          Result := True;
        end else
        if AnsiLowerCase(FExt) = '.png' then
        begin
          Image.Picture.Assign(TPNGObject(ImgStream));
          Result := True;
        end else
        if AnsiLowerCase(FExt) = '.gif' then
        begin
          Image.Picture.Assign(TGifImage(ImgStream));
          Result := True;
        end else
          ShowMessage('Nicht unterstütztes Bildformat: ' + FExt);
      end else
       ShowMessage('Kein Daten geleden !');

    finally
      ImgStream.Free;
    end;

  end else
    ShowMessage('Kein gültiges Image angegeben !');
end;

Das ist frei nach Nase getippt, keine Funktionsgarantie!

[Tyrael Y.]

@turbopascal: es funktioniert aber ;), probier es aus...