Wie kann ich jpeg#s in D3 einlesen?

[bruno01]

Hallo Alle ,
ich möchte mit D3 jpeb-Bilder in eine Paradoxtabelle einlesen. D3 macht dieses Format aber nicht. Wie bekomme ich das hin :?: . Kann jemand weiterhelfen?
Danke für eine Antwort.

[kiar]

unit jpeg eingebunden?

[bruno01]

bin Anfänger, wie geht das? kannst Du mir den Code aufschreiben oder sageb wo er zu finden ist?
Danke für die Antwort.

[S2B]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Das ist eine leere Unit mit der Unit jpeg eingebunden! :wink:

[kiar]

einfach in die Uses klausel jpeg schreiben. der compiler lädt sich dann die unit schon.

ich denke das sie bei d3 dabei ist .

raik

edit und dann benutze mal die suche hier in der dp da wirst du fündig

[bruno01]

Danke für die Antworten, melde mich wenn es geklappt hat.

[bruno01]

Hallo,
ich erhalte dabei nur eine Fehlermeldung: "Deklaration erwartet, aber Bezeichner gefunden."
Also doch nicht bei D3 enthalten :?: .
:(
Weiß denn keiner wie das geht?

[fkerber]

Hi!

Doch es geht so :mrgreen:
Mach einfach mal eine neue Anwendung und schreibe oben zu den Uses jpeg dazu.
Das sollte gehen.

Ciao fkerber

[bruno01]

Hallo,
ich habe eine Anwendung und lese dort bilder ein, dort sollen nun auch jpeg`s eingelesen werden weil die bmp´s zu viel Platz benötigen. Wenn ich die unit1 mit jpeg; ergänze, kommt diese Fehlermeldung beim Compelieren der unit3 (Menü zum Programm beenden).
Eine neue Anwendung löst nicht mein Problem, aber versuchen werde ich es auf alle Fälle. :pale:

[bruno01]

Mit neuer Anwendung tritt die gleiche Fehlermeldung auf. Muss am D3 liegen :spin:

[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

[bruno01]

Hallo Norton,
leider,leider es geht nicht, er erkennt das jpeg-format nicht.
:cry: :cry:

[scp]

Zitat:

Zitat von bruno01

Hallo Norton,
leider,leider es geht nicht, er erkennt das jpeg-format nicht.
:cry: :cry:

Welche Fehlermeldung gibt es denn genau? hast du die Unit JPEG in der uses? Ich kann dein Problem nämlich nicht nachvollziehen, habe den Code so in einem neuen Projekt in D3 Pro getestet, ging einwandfrei.

[fkerber]

HI!

Habe das mal mit D3 programmiert und angehängt.

Ciao fkerber

[bruno01]

Hallo fkerber,
das klappt auch bei mir, danke für die Hilfe. :-D

Ich habe immer mit OpenPictureDialog DBImages gearbeitet, weil ich das Bild ja in eine Datenbank (Paradoxtabelle) speichern will und das klappt eben nicht. Kann ich den mit Deiner Variante auch für die DB benutzen? :?:

Die vielen Downloads zeigen, dass dieses Thema mehrere Usern interessiert.
Nochmals Danke. :bouncing4:

[fkerber]

Hi!

Die vielen Downloads? 4? naja, immerhin noch 3 andere.
Ich kenne mich mit DB leider nicht aus, am Besten du postest es als seperate Frage im DB-Forum.


Ciao fkerber

[bruno01]

OK fkerber
gehe in das DB-Forum, mal sehen ob ich weiterkomme. :P

[mikhal]

Weiter oben wurde eine Laderoutine angeboten, eventuell mußt du sie erweitern:

Code:

procedure LadeJpg(FileName: String; Bild: TBitMap); 
  var Jpeg: TJpegImage; 
begin 
  Jpeg:=TJpegImage.Create; 
  try  // unbedingt in einen Exception-Block fassen
    jpeg.LoadFromFile(filename); 
    jpeg.DibNeeded;  // <- Bitmap erzeugen!
    Bild.Assign(Jpeg); 
  finally
    jpeg.free;
  end; 
end;

Grüße
Mikhal