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

[nuclearping]

Gratulation teebee. Jetzt hast du taktaky wieder in seiner Masche bestätigt, dass sich immer einer findet, der ihm genau das vorkaut, was er haben will. Und so macht er denn fröhlich weiter ...

:dp:

[Mithrandir]

Ich denke nicht, das PNs ins Forum gestellt werden sollten. Das Widerspricht dem Sinn der PN. :evil:

[mkinzler]

@Alle: Hier bitte nur noch Posten, wenn es mit dem Thema zu tun hat!

[himitsu]

wenn die/eine eigene Anwendung das Bild in die Zwischenablage kopiert, dann könne man die Maße einzeln mit reinkopiern (es kann nicht nur ein Format, bzw. eine Information, glechzeitig in der Zwischenablage sein)

ansonsten bleibt nur das Rauskopieren der Grafik und dann in der lokalen Kopie auslesen.
oder man kopiert nur die ersten Byte der Grafik und ließt es sozusagen aus dem Grafikheader direkt aus.