Bibliothek "JPEG" wird nicht gefunden

[Fraenzken]

Hallo,

ich bin ein absoluter Lazarus-Neuling, habe vor Urzeiten aber viel in Turbo Pascal programmiert. Ich habe gestern Lazarus auf meinem Windows 10-PC installiert und wage nun meine ersten Schritte.

Ich würde Lazarus gerne nutzen, um eine JPG-Datei zu öffnen und zu drehen. Ich habe Code-Schnipsel gefunden, mit denen sich ein JPG in ein Bitmap umwandeln und dieses Bitmap drehen lässt. Ich benötige dazu aber die Bibliothek JPEG. Ich habe sie unter USES aufgeführt, der Compiler findet sie aber augenscheinlich nicht. Wie muss ich vorgehen? Oder gibt es andere Möglichkeiten, ein JPG zu drehen?

Vielen Dank für eure Hilfe!

[theo]

Zum JPEG laden brauchst du nichts weiter. Unit Graphics reicht.

Code: Alles auswählen

var aPic:TPicture;
begin
aPic:=TPicture.Create;
aPic.LoadFromFile('/home/theo/Bilder/test.jpg');
aPic.Bitmap.... //<!---- Hier hast du das Bitmap
aPic.free;
end;        

Hier gibt es auch noch Infos: http://wiki.freepascal.org/Developing_with_Graphics

[Fraenzken]

Zum JPEG laden brauchst du nichts weiter. Unit Graphics reicht.

Code: Alles auswählen

var aPic:TPicture;
begin
aPic:=TPicture.Create;
aPic.LoadFromFile('/home/theo/Bilder/test.jpg');
aPic.Bitmap.... //<!---- Hier hast du das Bitmap
aPic.free;
end;        

Hier gibt es auch noch Infos: http://wiki.freepascal.org/Developing_with_Graphics

Danke für die Antwort. "Graphics" findet er aber leider auch nicht

[Warf]

Zum JPEG laden brauchst du nichts weiter. Unit Graphics reicht.

Code: Alles auswählen

var aPic:TPicture;
begin
aPic:=TPicture.Create;
aPic.LoadFromFile('/home/theo/Bilder/test.jpg');
aPic.Bitmap.... //<!---- Hier hast du das Bitmap
aPic.free;
end;        

Hier gibt es auch noch Infos: http://wiki.freepascal.org/Developing_with_Graphics

Danke für die Antwort. "Graphics" findet er aber leider auch nicht

Konsolen oder Forms Anwendung? denn bei Konsolenanwendungen wird nicht Standardmäßig die LCL verwendet, und die Unit Graphics ist Teil der LCL

[Michl]

Willst du ein Programm für die Konsole oder eine GUI schreiben?

Bei einer GUI:
- Projekt -> Neues Projekt... -> Anwendung
- Wähle in der Komponentenpalette einen TButton und klicke auf das Formular
- Jetzt hast du ein TButton auf dem Formular, doppelklicke ihn -> es wird der OnClick-Eventhandler für diesen erstellt
- Dort fügst du den Code von Theo ein:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  aPic: TPicture;
begin
  aPic := TPicture.Create;
  aPic.LoadFromFile('/home/theo/Bilder/test.jpg');
//  aPic.Bitmap.... //<!---- Hier hast du das Bitmap
  aPic.free;
end;  

und startest dein Programm

Die Unit Graphics wird automatisch bei einem Standard-Lazarus bei der Erstellung einer GUI eingefügt.

Je nach Winkel der Drehung kann man das recht einfach realisieren (für 90, 180, 270 Grad findest du eine Menge Code im Netz), für Drehungen beliebigen Winkels müsstest du weitere Bibliotheken von Dritten (BGRABitmap) laden oder selber rechnen.

[Fraenzken]

Zum JPEG laden brauchst du nichts weiter. Unit Graphics reicht.

Code: Alles auswählen

var aPic:TPicture;
begin
aPic:=TPicture.Create;
aPic.LoadFromFile('/home/theo/Bilder/test.jpg');
aPic.Bitmap.... //<!---- Hier hast du das Bitmap
aPic.free;
end;        

Hier gibt es auch noch Infos: http://wiki.freepascal.org/Developing_with_Graphics

Danke für die Antwort. "Graphics" findet er aber leider auch nicht

Konsolen oder Forms Anwendung? denn bei Konsolenanwendungen wird nicht Standardmäßig die LCL verwendet, und die Unit Graphics ist Teil der LCL

Das ist der Grund, danke! Ich schreibe ein Konsolen-Programm, das sich über die Kommandozeile bedienen lassen soll. Kann ich irgendetwas einstellen, so dass ich doch Zugriff auf die Unit Graphics habe?

[Warf]

Das ist der Grund, danke! Ich schreibe ein Konsolen-Programm, das sich über die Kommandozeile bedienen lassen soll. Kann ich irgendetwas einstellen, so dass ich doch Zugriff auf die Unit Graphics habe?

Projekt->Projektinspektor->Neu->Neue Anforderung und dann LCLBase über den Dialog hinzufügen

[Fraenzken]

Das ist der Grund, danke! Ich schreibe ein Konsolen-Programm, das sich über die Kommandozeile bedienen lassen soll. Kann ich irgendetwas einstellen, so dass ich doch Zugriff auf die Unit Graphics habe?

Projekt->Projektinspektor->Neu->Neue Anforderung und dann LCLBase über den Dialog hinzufügen

Super, hat geklappt! Danke!