| Autor |
Beitrag |
PhilGo
 
Beiträge: 315
Win 98, Win Longhorn ;-)
|
Verfasst: Sa 20.09.03 18:24
Hi,
wie kann ich Bilder(Screen-Shot) in das Jpeg-Format speichern?  Wenn man nur die Jpeg-Unit mit in den Quelltext nimmt, funktioniert es nicht.
Mfg PhilGo
Moderiert von  Tino: Überflüssige Absätze entfernt._________________ Sie werden dich finden und töten... Söhne der großen Bärin!
|
|
Christian S.
Beiträge: 20451
Erhaltene Danke: 2264
Win 10
C# (VS 2019)
|
Verfasst: Sa 20.09.03 18:39
Kommt auf den Quelltext an. Poste doch einfach mal, was Du bisher hast!
MfG
Peter
_________________ Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
|
|
PhilGo 
Beiträge: 315
Win 98, Win Longhorn ;-)
|
Verfasst: Sa 20.09.03 19:00
Hab gerade meinen Computer verliehen(da sind meine Quelltexte drauf). 
Aber schau die doch mal mein Freeware-Prog an.
Download: 1. Auf www.philgo.ixy.de gehen
2. Auf Download klicken
3. Download von PG Shote Beta-Version(Download-Schrift)
Ich hab eben eine TImage-Komponente von der aus ich den Screen-Shot in eine Jpeg-Datei speichern will. 
Mfg PhilGo
Moderiert von Tino: Überflüssige Absätze entfernt._________________ Sie werden dich finden und töten... Söhne der großen Bärin!
Zuletzt bearbeitet von PhilGo am Sa 20.09.03 19:04, insgesamt 1-mal bearbeitet
|
|
Christian S.
Beiträge: 20451
Erhaltene Danke: 2264
Win 10
C# (VS 2019)
|
Verfasst: Sa 20.09.03 19:04
Habe mir die Quelltexte jetzt nicht angesehen. Aber vielleicht hilft Dir das weiter (keine Ahnung, ob es einfacher geht, aber so geht es zumindest):
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.Button1Click(Sender: TObject);
VAR bild : TJPEGImage;
begin
bild := TJPEGImage.Create;
bild.Assign(Image1.Picture.Graphic);
bild.SaveToFile('c:\test.jpg');
bild.Free;
end; |
MfG
Peter _________________ Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
|
|
PhilGo
Beiträge: 315
Win 98, Win Longhorn ;-)
|
Verfasst: Sa 20.09.03 19:06
Danke schön, werd ich gleich mal testen. 
Mfg PhilGo
Moderiert von Tino: Überflüssige Absätze entfernt._________________ Sie werden dich finden und töten... Söhne der großen Bärin!
|
|
PhilGo
Beiträge: 315
Win 98, Win Longhorn ;-)
|
Verfasst: Di 23.09.03 17:15
Hi,
jetzt bin ich mal endlich zum testen gekommen, aber es funktioniert nicht! 
Was mach ich den falsch? Ich füge die Jpeg-Unit ein, aber es funktioniert einfach net.
Mein Programm stellt zwar eine Datei her und die Datei is auch fast schon ein Megabyte groß, aber eigentlich sollte die Jpeg-Datei viel kleiner sein und auch funktionieren(diese Datei kannman nich öffnen!).
Ich brauch dringend Hilfe. 
Mfg PhilGo
Moderiert von Tino: Überflüssige Absätze entfernt._________________ Sie werden dich finden und töten... Söhne der großen Bärin!
|
|
Christian S.
Beiträge: 20451
Erhaltene Danke: 2264
Win 10
C# (VS 2019)
|
Verfasst: Di 23.09.03 17:31
Hallo!
Poste doch mal ein bisschen Quelltext. Mit dem, was Du beschreibst, kann man ja nur raten, was falsch läuft!
MfG
Peter
_________________ Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
|
|
PhilGo
Beiträge: 315
Win 98, Win Longhorn ;-)
|
Verfasst: Mi 24.09.03 17:54
Ich hab gerade mein Computer nicht in der Nähe(Laptop), aber das kann ich dir ein bisschen erklären:
Mein Programm erzeugt per Button-Klick ein Screen-Shot(in eine TImage). Dann wird beim Speichern gefragt wie die Erweiterung ist(.bmp oder .jpg).
Wenn die Erweiterung Jpg ist dann wird der Screen-Shot mit deinem Quelltext gespeichert.
Ich hoffe das bringt dich weiter(ich bekomme meinen Computer erst in 2 Tagen)
Mfg PhilGo
Moderiert von Tino: Überflüssige Absätze entfernt._________________ Sie werden dich finden und töten... Söhne der großen Bärin!
|
|
Christian S.
Beiträge: 20451
Erhaltene Danke: 2264
Win 10
C# (VS 2019)
|
Verfasst: Mi 24.09.03 18:05
| Zitat: | | Ich hoffe das bringt dich weiter |
Tja, nicht wirklich.
Bist Du Dir sicher, dass das Bild korrekt in das TImage geschrieben wird? Denn den Quelltext oben habe ich getestet, allerdings habe ich beim Test ein Bild im Objektinspektor geladen.
Ich denke also, dass der Fehler irgendwo anders liegt. Müssen wir wohl doch noch zwei Tage warten ...
MfG
Peter _________________ Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
|
|
PhilGo
Beiträge: 315
Win 98, Win Longhorn ;-)
|
Verfasst: Sa 27.09.03 18:23
Hi, danke für deine Hilfe, aber es funktioniert(fehlerhafter Quelltext ). Jetzt kann ich endlich eine neue Version meines Screen-Shot-Programm herausbringen.
Mfg PhilGo _________________ Sie werden dich finden und töten... Söhne der großen Bärin!
|
|
Christian S.
Beiträge: 20451
Erhaltene Danke: 2264
Win 10
C# (VS 2019)
|
Verfasst: Sa 27.09.03 18:26
Na, da bin ich ja gespannt. Wann ist es fertig?
_________________ Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
|
|
PhilGo
Beiträge: 315
Win 98, Win Longhorn ;-)
|
Verfasst: Sa 27.09.03 18:43
Die neue Version lade ich morgen hoch. Die alte kann man schon runterladen ( de.geocities.com/phi...halk/progs/Shote.zip ).
Mfg PhilGo _________________ Sie werden dich finden und töten... Söhne der großen Bärin!
|
|
PhilGo
Beiträge: 315
Win 98, Win Longhorn ;-)
|
Verfasst: Sa 27.09.03 18:46
Tip: Bestätige die Adresse im Internetexplorer nochmal, sonst funktioniert das net.
Hat wohl ne Macke.
Mfg PhilGo _________________ Sie werden dich finden und töten... Söhne der großen Bärin!
|
|
masterworld
Beiträge: 20
|
Verfasst: Mo 17.11.03 19:51
Habe mit 2 verschiedenen Codes aus einem Image das Bild in ein Jpeg konventiert. Das erstellen klappt, jedoch ist die Qualität des erstellten Bildes sher stark verändert. Aus grau wird blau, usw.. Meiner Meinung nach liegt es an den Farben, kann ich diese vorm Speichern festlegen, oder woran könnt es liegen?
hab das Problem gefunden:
Delphi-Quelltext
1:
2:
| Image1.Picture.Assign(B); |
Moderiert von Tino: Code- durch Delphi-Tags ersetzt.
|
|
