jpg in TImage

[Killer]

Hi ich hab folgendes Problem:

Hab eine TImage Komponente, die dynamisch Bilder anzeigen soll (Pfad iss ne URL). Vor allem sind die Bilder im jpg Format, was die TImage Kompo glaub ich gar nicht mag. Kann mir einer helfen? Gibts da vielleicht ne andere Kompo die auch jpg annimmt?

[sakura]

Einfach mal suchen JPEG Image oder JPEG TImage Das hatten wir schon oft.

...:cat:...

[Killer]

Hm ok das Problem hat sich dadurch leider noch nicht gelöst, er sagt immer EFOpenError "Datei kann nicht geöffnet werden". Funktioniert das mit der URL gar nicht????

[sakura]

Den Teil mit der URL habe ich überlesen :oops: Nein, das geht nicht. Du musst die Datei erst runterladen (siehe Code-Library) und anschließend öffnen.

...:cat:...

[Killer]

Hm das iss mir zu aufwändig, dann mach ich gleich ne Vorschau im Browser :)

[SirThornberry]

Was für ein Problem hast du genau mit TImage und jpeg?? Können die jpgs nicht ins timage reingeladen werden???

[gekmihesg]

Delphi-Quellcode:

image1.Picture.Assign('dein.jpg');

[sakura]

@gekmihesg: Was sollte dieser Post denn. Der ist schon syntaktisch völlig falsch?

...:cat:...

[mirage228]

Außerdem ist es auch nicht das, was Killer gefragt hatte. Killer wollte eine URL in TImage öffnen.

mfG
mirage228

[gekmihesg]

hab ich im nachhinein auch gemerkt... der string in den klammer is natürlich falsch aber wenn man da ein TJpegImage rein schreibt geht alles

Delphi-Quellcode:

image1.Picture.Assign(jpg);

und er will anscheinend schon ein jpeg in seinem TImage anzeigen wies im ersten post steht...
dann muss ers halt vorher runterladen (was man im internet sowieso immer muss um was anzuzeigen ;))

[sakura]

Und wie er bereits schrieb, hat er darauf keine Lust. :roll:

...:cat:...

[gekmihesg]

ich wollte ja nur mal schreiben wie man ein jpeg in ein TImage läd...
vielleicht wills ja wer anders wissen...

:cry:

[sakura]

Zitat:

Zitat von gekmihesg

ich wollte ja nur mal schreiben wie man ein jpeg in ein TImage läd...

Ehrlich gesagt, könnte ich nichts mit Deinem Code anfangen. Was ist die Variable JPG, wo kommt die her...?

Wann, dann:

Delphi-Quellcode:

uses ...., JPEG;

...
// image1 ist eine Komponente des Typs TImage auf dem Form
Image1.LoadFromFile('C:\Temp\Image.jpg');

...:cat:...

[gekmihesg]

ok dann nochmal:

Delphi-Quellcode:

uses ..., Jpeg;

...

procedure TForm1.Button1Click(Sender: TObject);
var jpg: tjpegImage;
begin
jpg:= tjpegimage.Create;
jpg.LoadFromFile('C:\test.jpg');
image1.Width:=jpg.Width;
image1.Height:=jpg.Height;
image1.Picture.Assign(jpg);
end;

[sakura]

:hello: Jetzt sollte es wirklich helfen. :cheers:

...:cat:...

[SirThornberry]

wenn das bild über http geladen werden soll

Delphi-Quellcode:

var stream: TStream;
    jpg1: TjpegImage;
begin
   stream := TMemoryStream.Create;
   http1.Get(doscriptname, stream); //http1 = TidHTTP von den Indys
   stream.Position := 0;

   jpg1 := Tjpegimage.Create;
   jpg1.LoadFromStream(stream);
   TImage01.Picture.Assign(jpg1);
   jpg1.Free;

   stream.free; //[Edit]hatte die Zeile doch glatt vergessen[/Edit]
end;

[ahachmann]

Ich bin grad selber ein wenig am fummel ein JPG in Image zu bekommen.
Naja, und leider kann ich mit dem oben genanten Code nur die Exception "TJPEGImage cannot be assigned to TImage" rufen.
:-0
der code:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
  var jpg: TJPEGImage;
begin
  if OpenPictureDialog1.Execute then
  begin
    jpg := TJPEGImage.Create;
    jpg.LoadFromFile(OpenPictureDialog1.FileName);
    image1.Width := jpg.Width;
    image1.Height := jpg.Height;
    image1.Assign(jpg);
  end;
end;

Mache ich was falsch? Habe Delphi 6
Gruß,
Alexander

[dizzy]

Zitat:

Zitat von ahachmann

Ich bin grad selber ein wenig am fummel ein JPG in Image zu bekommen.
Naja, und leider kann ich mit dem oben genanten Code nur die Exception "TJPEGImage cannot be assigned to TImage" rufen.
:-0
der code:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
  var jpg: TJPEGImage;
begin
  if OpenPictureDialog1.Execute then
  begin
    jpg := TJPEGImage.Create;
    jpg.LoadFromFile(OpenPictureDialog1.FileName);
    image1.Width := jpg.Width;
    image1.Height := jpg.Height;
    image1.Assign(jpg);    <------- !!!!*
  end;
end;

Mache ich was falsch? Habe Delphi 6
Gruß,
Alexander

* Schreib doch hier einfach mal

Delphi-Quellcode:

 image1.Picture.Assign(jpg);

So hat es "gekmihesg" auch geschrieben :zwinker:

[ahachmann]

Danke, das nächste mal lese ich besser. :oops: