Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
muss es eigentlich jpg sein ? du kannst doch auch bitmaps speichern vorerst und sehen ob wenigstens das bei dir tut.
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
kommentier doch mal die compression quality und das progressive encoding aus
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
bist du immer so freundlich zu neulingen ? :|
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
function validtime(s:string):string;
var
i: integer;
begin
for i := 1 to length(s) do
if s <>':'
then result := result +s
else result := result +'_';
end;
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
kanns sein das du probleme mit den : aus der Zeit bekommst ?
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
TImage is von TGraphicControl abgeleitet was er gar nich braucht. Da würde es schon ein TBitmap tun, das hat aber kein LoadFromClipboard.
natürlich dann auch
procedure TForm1.FormCreate(Sender: TObject);
begin
buf := TJPEGImage.Create;
DesktopBitmap := TBitmap.Create;
end;
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
sorry was ich gepostet hab is nich all mein code:
ich hab das so:
DesktopBitmap:TBitmap;
implementation
{$R *.dfm}
procedure scrshoot();
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
sorry ich meinte img: TPicture;
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
procedure TForm1.FormCreate(Sender: TObject);
begin
clip := Clipboard; // Systemzwischenablage
img := TPicture.Create;
end;
Codetags nach r_kerber zum 2. Mal eingefügt. Bitte ab jetzt selber machen. :mrgreen: Mfg, MrSpock
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
des jpg und clip sind auch objekte die man createn muss.
ausserdem ist das systemclipboard ne extra variable in clipboard:
clip := Clipboard;
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
also erst en bild createn, dann vom Clipboard laden, das jpgimage createn, abmp zuweisen, komprimieren, speichern und wieder freigeben. hats geholfen? :roll:
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
und des aBmp muss ein TBitmap sein.
img: TBitmap;
img := TBitmap.create;
if clip.HasFormat(CF_BITMAP) then
begin
img.LoadFromClipboardFormat(CF_Bitmap,clip.GetAsHandle(CF_Bitmap),0);
clip.Clear;
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
buf: TJPEGImage;
buf.Assign(Bitmap);
buf.CompressionQuality := 50;
buf.ProgressiveEncoding := true;
buf.Compress;
buf.SaveToFile('bild.jpg');
Delphi-Tags eingefügt. Mfg, r_kerber
Forum: Multimedia
Delphi
by hboy,
2. Feb 2004
des jpeg hat .compress und .savetofile