AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi *.jpeg Datei erstellen
Thema durchsuchen
Ansicht
Themen-Optionen

*.jpeg Datei erstellen

Ein Thema von Nils1984 · begonnen am 2. Feb 2004 · letzter Beitrag vom 2. Feb 2004
Antwort Antwort
Seite 3 von 4     123 4      
Benutzerbild von Stanlay Hanks
Stanlay Hanks

Registriert seit: 1. Mär 2003
2.078 Beiträge
 
Delphi 2005 Professional
 
#21

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:27
Hi hboy. Danke für die Erklärung, jetzt kapier ich das auch

Man liest sich, Stanlay
  Mit Zitat antworten Zitat
Nils1984

Registriert seit: 23. Sep 2003
Ort: Meerbusch
27 Beiträge
 
Delphi 7 Enterprise
 
#22

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:34
nett nett und was soll ich jetzt tun??
Hiroshima '45, Tschernobyl '86, Windows '95

www.meinepageistdiebeste.de.vu
  Mit Zitat antworten Zitat
hboy

Registriert seit: 16. Jan 2004
364 Beiträge
 
#23

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:43
kanns sein das du probleme mit den : aus der Zeit bekommst ?
Power is nothing without TControl
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#24

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:45
Zitat von Nils1984:
soweit bin ich jez, aber da kommt immer ne Fehlermeldung wenn ich die Screenshottaste drück
Schön und jetzt? Veranstallten wir jetzt hier eine Ratestunde und derjenige, der die richtige Fehlermeldung errät, darf den Fehler auch gleich beheben oder ersparst du uns das ganze und verrätst uns den Fehler?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
hboy

Registriert seit: 16. Jan 2004
364 Beiträge
 
#25

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:46
Delphi-Quellcode:
function validtime(s:string):string;
var
  i: integer;
begin
  for i := 1 to length(s) do
  if s[i] <>':'
    then result := result +s[i]
    else result := result +'_';
end;

Procedure Bild_Speichern;
Var Zeit :TDateTime;
    name :String;
    img: TPicture;
    Jpg: TJPEGImage;
    clip: TClipboard;
Begin
  Zeit := now;
  Clip := Clipboard;
  if clip.HasFormat(CF_BITMAP) then
  begin
    img := TPicture.create;
    Jpg := TJPEGImage.create;
    name := ('c:\'+'Bild von '+validTime(Timetostr(Zeit))+'.jpg');
    img.LoadFromClipboardFormat(CF_Bitmap,clip.GetAsHandle(CF_Bitmap),0);
    jpg.Assign(img.bitmap);
    jpg.CompressionQuality := 50;
    jpg.ProgressiveEncoding := true;
    jpg.Compress;
    jpg.SaveToFile(name);
    clip.clear;
    img.Free;
    jpg.Free;
  end;
End;
des tut. habs grad getestet
Power is nothing without TControl
  Mit Zitat antworten Zitat
Nils1984

Registriert seit: 23. Sep 2003
Ort: Meerbusch
27 Beiträge
 
Delphi 7 Enterprise
 
#26

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:47
hab ich doch....

der : in der zeit, hmm, der wird in dateinamen nich akzeptiert da könntest du recht haben...

hmm, der QT den du da postest funzt bei mir net der selbe fehler WIE OBEN BESCHRIEBEN
Hiroshima '45, Tschernobyl '86, Windows '95

www.meinepageistdiebeste.de.vu
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#27

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:48
Zitat von Nils1984:
ich hatte überlegt ob ich sie abschreiben soll, habs dann gelassen wil ich keinen bock hatte,aber wenn du soooo lieb fragst:
Und du erwartets von uns dass wir "Bock" haben rumzuraten, was es denn sein könnte um dir zu helfen? Ich hätte ja jetzt große Lust hier dicht zu machen, wenn du noch nicht mal bereit bist uns beim Helfen zu unterstützen, kann es ja wohl nicht sehr wichtig sein.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
hboy

Registriert seit: 16. Jan 2004
364 Beiträge
 
#28

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:50
Zitat von Luckie:
Zitat von Nils1984:
ich hatte überlegt ob ich sie abschreiben soll, habs dann gelassen wil ich keinen bock hatte,aber wenn du soooo lieb fragst:
Und du erwartets von uns dass wir "Bock" haben rumzuraten, was es denn sein könnte um dir zu helfen? Ich hätte ja jetzt große Lust hier dicht zu machen, wenn du noch nicht mal bereit bist uns beim Helfen zu unterstützen, kann es ja wohl nicht sehr wichtig sein.
bist du immer so freundlich zu neulingen ?
Power is nothing without TControl
  Mit Zitat antworten Zitat
Nils1984

Registriert seit: 23. Sep 2003
Ort: Meerbusch
27 Beiträge
 
Delphi 7 Enterprise
 
#29

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:53
Wenn du lieber freundlicher Luckie die beiträge richtig lesen würdest wäre dir auf gefallen das ich die entsprechende Fehlermldung bereits um 22:13 von mir Gepostet wurde in dem sinne
Hiroshima '45, Tschernobyl '86, Windows '95

www.meinepageistdiebeste.de.vu
  Mit Zitat antworten Zitat
hboy

Registriert seit: 16. Jan 2004
364 Beiträge
 
#30

Re: *.jpeg Datei erstellen

  Alt 2. Feb 2004, 21:58
kommentier doch mal die compression quality und das progressive encoding aus
Power is nothing without TControl
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 4     123 4      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz