Forum: Multimedia
by taaktaak,
30. Dez 2008
Na, was soll im edit stehen? Du bekommst ein Array mit ByteWerten geliefert (für jede Spalte des Bildes ein Byte) - und in einem Edit kann nur ein String angezeigt werden.
Forum: Multimedia
by taaktaak,
30. Dez 2008
Also:
Der Vorschlag kam ja von guidok, da soll das BitmapCreate natürlich in das Oncreate() des Formulars, das Free() natürlich in das OnDestroy() des Formulars.
Natürlich geht's auch mit direkter Verwendung von Bitmap oder Image, beides ist doppelt-gemoppelt.
Das ScanLine liefert für die angegebene Zeile ein ByteArray zurück; ganauer: einen Zeiger auf ein ByteArray. Die D7 Hilfe hat...
Forum: Multimedia
by taaktaak,
30. Dez 2008
gaui :shock:
Bevor wir bei ScanLine () einsteigen....
Was in aller Welt hast du mit OnCreate() und OnDestroy() gemacht?????
Forum: Multimedia
by taaktaak,
30. Dez 2008
procedure TForm1.GetFarbe(var r, g, b: Byte; Bild: TBitmap; X, Y: Integer);
var
Farbe: TColor;
begin
Farbe := Bild.Canvas.Pixels;
r := GetRValue(Farbe);
b := GetBValue(Farbe);
g := GetGValue(Farbe);
end;
Forum: Multimedia
by taaktaak,
30. Dez 2008
Hat das nicht rollstuhlfahrer in Post#2 schon beschrieben?
Forum: Multimedia
by taaktaak,
30. Dez 2008
Macht ja nichts!
Aus Fehlern lernt man oft am besten!
:P
Forum: Multimedia
by taaktaak,
30. Dez 2008
Hab' schon drauf gewartet:
//TForm1 OnCreate;
begin
DasBitmap := TBitmap.Create;
end;
//TForm1 OnDestroy;
begin
DasBitmap.Free;
Forum: Multimedia
by taaktaak,
30. Dez 2008
Moin, Moin.
Du hast das wohl ein wenig durcheinandergewürfelt, mit
if Open.Execute then begin
DasBitmap.LoadFromFile(Open.FileName);
Image1.Picture.Bitmap.Assign(DasBitmap)
end;
sollt es funktionieren.