Breite und Höhe eines Grafiks in der Zwischenablage auslesen

[thomas2009]

Hallo

wie kann ich die Maße einer Grafik, was ich in der Zwischenablage kopiert habe wieder auslesen ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.Assign(Image1.Picture);
Edit1.Text:= // hier soll die Breite von der Zwischenablage ausgelesen werden

end;

das war nur ein Beispiel. Kommt Ihr bitte nicht auf der Idee:
Edit1.Text:=IntToStr(Image1.width); :mrgreen:

[nuclearping]

Onkel Google weiß alles: http://www.google.de/search?hl=de&q=...le-Suche&meta=

[thomas2009]

Google ist Onkel aber nur wenn man ihm das richtige Wort (Oberbegriff) gibt. Dein Link hat mit meiner Frage nicht zu tun

[Meflin]

Größe aus dem CLipboard auslesen geht i.d.R. nicht.

Lösung: Bild aus der Zwischenablage in TGraphic-Erbe einfügen und größe ermitteln.

[DeddyH]

Wozu eigentlich eine Grafik selbst in die Zwischenablage kopieren und dann versuchen, diese auszulesen anstatt gleich auf das Original zuzugreifen? Das leuchtet mir nicht ganz ein :gruebel:.

[thomas2009]

Ich möchte aber die masse direkt auslesen ohne die Grafik von der Zwischenablage kopieren zu müssen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then begin
bmp:= TBitmap.Create;
bmp.Assign(Clipboard);
Edit1.Text:=IntToStr(bmp.Width);
Edit2.Text:=IntToStr(bmp.Height);
bmp.Free;
end;
end;

[DeddyH]

Geht es denn um eine Grafik, die Du aus Deinem Programm in die Zwischenablage kopierst? Zumindest steht es so im Ausgangspost.

[nuclearping]

Zitat:

Zitat von thomas2009

Google ist Onkel aber nur wenn man ihm das richtige Wort (Oberbegriff) gibt. Dein Link hat mit meiner Frage nicht zu tun

Für meinen Teil hab ich beim dritten oder vierte Ergebnis 'ne Diskussion gefunden, wo's GENAU um deine Frage geht.

Aber wenn man natürlich am liebsten nur fertige Code-Fetzen auf Goldtellern serviert bekommen will, übersieht man natürlich eventuelle Lösungswege, wo man sich selbst noch ein wenig bemühen muss! Ich finde deine Art extrem dreist.

[blauweiss]

Nicht aufregen, Nuclearping !! :-D
Ignorier ihn, er kann und will es nicht besser.... :wall:

blauweiss

[teebee]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var hbm: HBITMAP;
    bm: tagBitmap;
begin
 If Clipboard.HasFormat(CF_BITMAP) Then begin
  hbm := Clipboard.GetAsHandle(CF_BITMAP);
  GetObject(hbm,SizeOf(tagBitmap),@bm);
  Caption := IntToStr(bm.bmWidth)+' '+IntToStr(bm.bmHeight);
 end;
end;

Gruß, teebee