AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Farbwerte aus JPEG Bildern auslesen
Thema durchsuchen
Ansicht
Themen-Optionen

Farbwerte aus JPEG Bildern auslesen

Ein Thema von ChinEnte · begonnen am 12. Mär 2005 · letzter Beitrag vom 9. Dez 2007
Antwort Antwort
Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#1

Re: Farbwerte aus JPEG Bildern auslesen

  Alt 12. Mär 2005, 23:55
Code:
procedure TForm1.Button1Click(Sender: TObject);
var farben:array of integer;
    i,j,k:integer;
begin             //Hier werden die Farbwerte ausgelesen
for i:= 1to 760 do begin
  for j:= 1to 578 do begin
  k:=k+1;
  farben[k]:=image1.canvas.pixels[i,j]

  end;
end;
end;
Die Dimensionen des Arrays müssen erst mit Delphi-Referenz durchsuchenSetLength festgelegt werden. Außerdem sollte es wohl
Delphi-Quellcode:
for i := 0 to 759 do begin
  for j := 0 to 577 do begin
heißen.
Warum arbeitet ihr nicht gleich mit dem eingelesenen Bitmap? Das wäre die beste Lösung.
Zitat:
@Kiste:
Haben das mit dem TOpenDialog gefunden und wollten es gleich mal zum Test bringen, aber wenn ich des in mein Formblatt einfüge und das Programm starte erscheint das Teil nicht auf dem ausgeführten Programm...
Zum Ausführen musst du Delphi-Referenz durchsuchenExecute benutzen. Siehe auch die OH zu TOpenDialog.
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat
Antwort Antwort


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 06:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz