Wie kann ich jpeg#s in D3 einlesen?

[fkerber]

Hi!

An D3 liegt es wohl nicht :| Habe gerade D3 installiert, eine neue Anwendung gemacht und oben bei Uses anstelle des ; ==> ", JPEG;" geschrieben (ohne Anführungszeichen)

Und das ging.

Ciao fkerber

[bruno01]

Hallo fkerber,
meins sieht so aus und geht nicht. Wo ist der haken. :?:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  jpeg;
type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]

[woki]

Zitat:

Zitat von bruno01

Hallo fkerber,
meins sieht so aus und geht nicht. Wo ist der haken. :?:


uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
jpeg;

Das ";" hinter dialogs durch ein "," ersetzen.

Grüsse
Woki

[fkerber]

Hi!

Kleiner Tipp:
Damit die Quellcodes leichter lesbar sind, gibt es in der DP die sogenannten Delphi-Tags.
Einfach deinen QuellCode markiereb und auf die Schaltfläche Delphi-Code (über dem Texteingabe-Fenster) klicken.

Alternativ vor den Code [.delphi] schreiben und danach [./delphi] (beide Male ohne Punkt, ist nur, damit es hier nicht geparst wird, also Klammer auf und dann delphi bzw. /delphi und Klammer zu.

Editieren kannst du deinen Beitrag über die Schaltfläche Edit oben rechts am jeweiligen Beitrag und es so ändern.

Ciao fkerber

[bruno01]

Danke für den Hinweis. Hier noch einmal mein Code. Hoffe, dass es diesmal besser geht.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  jpeg;
type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.

Wo ist bei mir der Fehler? :?:

[teebee]

Zitat:

Zitat von bruno01

Danke für den Hinweis. Hier noch einmal mein Code. Hoffe, dass es diesmal besser geht.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; // <- hier ein Komma!
  jpeg;
...

Wo ist bei mir der Fehler? :?:

Die Lösung ist Dir eigentlich schon zweimal gepostet worden :gruebel:, mach mal hinter das Wort 'Dialogs' ein Komma anstatt eines Semikolons...

Gruß, teebee

[shmia]

Zitat:

Zitat von bruno01

Danke für den Hinweis. Hier noch einmal mein Code. Hoffe, dass es diesmal besser geht.

Programmieren scheint nicht dein Ding zu sein. :roll:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;  // <--- Strichpunkt ist falsch - ein Komma ist richtig
  jpeg;

[bruno01]

Hallo shmia,
sagte ja schon oben, dass ich Anfänger bin. Habe aber das oben übersehen und wollte nur mitteilen, dass es auch nach der Beseitigung des ";" nicht geklappt hat. Meine Bücher helfen mir im Moment auch nicht weiter. Meine Hoffnung seid Ihr im Augenblick.
Noch einmal: Ich möchte ein Bild im jpeg-format für eine Paradox-Tabelle einlesen und bekomme es eben nicht hin. Ein kompletter Code währe nicht schlecht.

Kann mir jemand auch eine gutes Buch für D3-Prof empfehlen?
:|

[bruno01]

Hallo,
jetzt habe ich es soweit hinbekommen, dass keine Fehlermeldung mehr erscheint. Im OpenDialog habe ich jpeg ebenfalls jpeg eingebunden, aber er erkennt beim Öffnen die jpegs´s nicht.
Ich freue mich auf eine Antwort. :-D

[Norton]

Hier mal meine D3 Variante zum Thema jpg

Code:

procedure LadeJpg(FileName: String; Bild: TBitMap);
var Jpeg: TJpegImage;
begin
Jpeg:=TJpegImage.Create;
jpeg.LoadFromFile(filename);
Bild.Assign(Jpeg);
jpeg.free;
end;

auf Button Klick im Image anzeigen ...

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
ladejpg(opendialog1.FileName,Image1.Picture.Bitmap);
end;

Natürlich ohne Garantie :wink:

Gruß, Norton