Kann man Grafiken aus PDF-Files separat abspeichern?

Spezielle Fragen zu 2D- und 3D-Grafik, Sound und Video
Antworten
gambasso
Foriker
Beiträge: 849
Registriert: Sa 17. Mär 2012, 09:55
Kontaktdaten:

Kann man Grafiken aus PDF-Files separat abspeichern?

Beitrag von gambasso » Mo 12. Dez 2016, 15:43

moin,

mein Handy macht aus Thermobildern PDF-Files. Daraus möchte ich gerne das Thermo-Bild separat abspeichern können.
Der Grund, hierbei sind dann die Farbscalen enthalten, im normal gespeicherten Bild nicht. Deshalb möchte ich diese Bilder separieren.

Ist es möglich mittels Gambas die Grafiken herauszuholen und zu speichern? Wenn ja, wie?
Gruss

besenmuckel
Foriker
Beiträge: 46
Registriert: Di 4. Nov 2014, 21:11
Kontaktdaten:

Re: Kann man Grafiken aus PDF-Files separat abspeichern?

Beitrag von besenmuckel » Di 13. Dez 2016, 08:30

Bilder aus pdf-Dateien extrahieren z. B. im gleichen Verzeichnis möglich mit Kosolenbefehl pdfimages

Code: Alles auswählen

pdfimages document.pdf  ./extract
Als Standard werden die Bilder als ppm-Dateien extrahiert, für andere Formate z. B.

Code: Alles auswählen

pdfimages -png document.pdf  ./extract
https://wiki.ubuntuusers.de/ImageMagick/
http://www.pro-linux.de/kurztipps/2/154 ... nsole.html
Zuletzt geändert von besenmuckel am Di 13. Dez 2016, 10:16, insgesamt 1-mal geändert.

gambasso
Foriker
Beiträge: 849
Registriert: Sa 17. Mär 2012, 09:55
Kontaktdaten:

Re: Kann man Grafiken aus PDF-Files separat abspeichern?

Beitrag von gambasso » Di 13. Dez 2016, 08:54

moin,

ich hätte mir gerne ein Programm dazu geschrieben, auf Konsolenebene ist das irgendwie unübersichtlich.
Es geht ansonsten mit LibreOffice-Draw.
Gruss

besenmuckel
Foriker
Beiträge: 46
Registriert: Di 4. Nov 2014, 21:11
Kontaktdaten:

Re: Kann man Grafiken aus PDF-Files separat abspeichern?

Beitrag von besenmuckel » Di 13. Dez 2016, 11:34

Na im Prinzip wäre es nur eine Zeile im Code.
Oder etwas Komfortabel z. B. so etwa

Code: Alles auswählen

' Gambas class file

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

  If Exist(User.Home &/ "PDFBILDER") = False Then   ' Wenn Verzeichnis nicht existiert, wird dieses erstellt!
    Shell "mkdir " & User.Home &/ "PDFBILDER" Wait
  Endif
  FileChooser1.Dir = User.Home &/ "PDFBILDER"
  FileChooser1.Reload

End

Public Sub Button1_Click()

  FileChooser1.Visible = False
  Shell "rm -f " & User.Home &/ "PDFBILDER/*" Wait    '   Alle Dateien in diesen Verzeichnis entfernen!
  If Dialog.OpenFile() Then Return
  Wait 0.1
  If Not Dialog.Path Then
    Return
  Endif
  Message.Info("kann einige Zeit brauchen!\nwenn fertig kommt Hinweis")
  Shell "pdfimages -png " & Dialog.Path & " " & User.Home &/ "PDFBILDER/" Wait  ' Bilder aus PDF extrahieren!
  Message.Info("fertig!")

  FileChooser1.Dir = User.Home &/ "PDFBILDER"
  FileChooser1.Visible = True
  FileChooser1.Reload

End

Public Sub FileChooser1_Change()

  PictureBox1.Picture = Picture[FileChooser1.SelectedPath]

End

gambasso
Foriker
Beiträge: 849
Registriert: Sa 17. Mär 2012, 09:55
Kontaktdaten:

Re: Kann man Grafiken aus PDF-Files separat abspeichern?

Beitrag von gambasso » Di 13. Dez 2016, 18:52

ja das klappt mit dem 'SHELL' -Befehl. Danke.
Gruss

besenmuckel
Foriker
Beiträge: 46
Registriert: Di 4. Nov 2014, 21:11
Kontaktdaten:

Re: Kann man Grafiken aus PDF-Files separat abspeichern?

Beitrag von besenmuckel » Di 13. Dez 2016, 20:02

Habe statt FileChooser es mal mit ListView gemacht. Funktiomiert auch soweit. Lese ich dann aber eine andere pdf-Datei ein und habe vorher Bilder aus der ersten pdf in die PictureBox geladen, sind in der PictureBox bei der Auswahl ersten Datei oder bei den ersten Dateien noch die Bilder von der ersten pdf-Datei drin. Nicht weiter nach der Ursache gesucht.

Code: Alles auswählen

' Gambas class file

Private sDir As String
Private pdfimagepath As String

Public Sub _new()

End

Public Sub Form_Open()

  If Exist(User.Home &/ "PDFBILDER") = False Then   ' Wenn Verzeichnis nicht existiert, wird dieses erstellt!
    Mkdir User.Home &/ "PDFBILDER"
  Endif

  listeNEU_Funktion()

End

Public Sub Button1_Click()

  If Dialog.OpenFile() Then Return
  Wait 0.1
  ListView1.Visible = False
  PictureBox1.Picture = Picture["Image1.png"]
  Message.Info("Je nach Umfang kann das ein wenig dauern!\nwenn fertig kommt Meldung")
  Shell "rm -f " & User.Home &/ "PDFBILDER/*" Wait    '   Alle Dateien in diesen Verzeichnis entfernen!
  Shell "pdfimages -png " & Dialog.Path & " " & User.Home &/ "PDFBILDER/" Wait  ' Bilder aus PDF extrahieren!
  Message.Info("fertig!")
  ListView1.Visible = True
  ListView1.Clear
  Wait 0.3
  listeNEU_Funktion()

End

Public Sub listeNEU_Funktion()

  For Each sDir In Dir(User.Home &/ "PDFBILDER", "*")
    ListView1.Add(User.Home &/ "PDFBILDER" &/ sDir, sDir)
  Next

  If Not sDir Then
    '     ListView1.Visible = False
  Endif

End

Public Sub ListView1_Click()

  pdfimagepath = User.Home &/ "PDFBILDER/" & ListView1.Item.Text
  PictureBox1.Picture = Picture[pdfimagepath]

End

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste