AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Image Canvas Pixel in Memo

Ein Thema von XXcD · begonnen am 29. Mai 2008 · letzter Beitrag vom 1. Jun 2008
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von XXcD
XXcD

Registriert seit: 19. Sep 2006
581 Beiträge
 
Delphi 2007 Professional
 
#1

Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 01:36
Hallo,
ich versuche gerade ein Image pixel für pixel abzuarbeiten und die Fraben als Zeichen in ein Memofeld einzufügen.
Nur leider will meine Prozedur nicht richtig funktionieren.

Eigentlich sollte das rauskommen: Das ist ein Testtext.
Es kommt aber das heraus: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

Das ist die Prozedure:
Delphi-Quellcode:
procedure TForm15.Button2Click(Sender: TObject);
var
color: TColor;
B, Y, X: Integer;
hex, s, t:string;
begin
for Y := 0 to Image1.Height do
begin
for X := 0 to Image1.Width do
begin
color:=image1.Canvas.Pixels[X,Y];
B := GetBValue(color);
hex:=IntToHex(B, 2);
t:=Chr(StrToInt('$'+hex));
s:=s+t;
end;
Memo1.Lines.add(s);
s:='';
end;
end;
Vielleicht weiß ja einer was ich falsch gemacht habe, ich bedanke mich schonml für die Hilfe.
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.685 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 02:53
Anmerkungen, die das Problem wahrscheinlich nicht betreffen, aber dennoch erwähnenswert sind:
- Lass die Schleifen bis Image1.Width-1 (gleiches bei Height) laufen. Im Moment rauscht du immer einen Pixel zu weit.
- Die Wursterei mit Hex ist überflüssig. t := chr(B); mehr brauchst du nicht. Als Einzeiler: "s := s + chr(GetBValue(Image1.Canvas.Pixels[X, Y]));"

Was das Problem selbst angeht, so würde es helfen, wenn du dir die Zahlenwerte von B mal testweise mit ausgeben lässt. 'ÿ' ist wenn ich nicht irre #254 oder #255. Wenn B andere Werte hat, liegts vermutlich doch irgendwie an der Hex-Fummelei, wobei ich um die Uhrzeit auf den ersten Blick nicht erkenne warum (mal aussen vor gelassen, dass es unnötig ist).

Auch würde mich das zugrunde liegende Bild mal interessieren!
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 07:44
Es scheint eine Art Verschlüsselung ähnlich Steganograpie zu sein. Wobei es in diesem Fall nicht besonders sicher ist, da der text nicht im Bild versteckt , sondern das Bild ist.
Markus Kinzler
  Mit Zitat antworten Zitat
soulies

Registriert seit: 9. Dez 2005
234 Beiträge
 
#4

Re: Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 08:43
hoi,

vllt. brauchst du ja auch die anderen Farbanteile (R + G) dazu, und
so zusagen aus der Summer aller wird der entsprechende Hex Wert gebildet
der wiederum einem Char entspricht.

cya
  Mit Zitat antworten Zitat
Benutzerbild von XXcD
XXcD

Registriert seit: 19. Sep 2006
581 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 11:58
Hmm die Tips waren schon nicht schlecht habe das jetzt nen wenig verbessert.
Aber das Problem ist noch nicht gelöst.
Und das ganze ist im moment zu Testzwecken, in dem Bild sollen später ganze Datenpakete gespeichert werden.
Wenn ich per Showmessage den jeweiligen Chr ausgeben lasse dann funktioniert es.

Delphi-Quellcode:
procedure TForm15.Button2Click(Sender: TObject);
var
color: TColor;
B, Y, X: Integer;
hex, s, t:string;
begin
for Y := 0 to Image1.Height-1 do
begin
for X := 0 to Image1.Width-1 do
begin
color:=image1.Canvas.Pixels[X,Y];
B := GetBValue(color);
t:=Chr(B);
--->>> Showmessage(t);
s:=s+t;
end;
Memo1.Lines.add(s);
s:='';
end;
end;
Mit Showmessage wird immer der richtige Chr angezeigt, aber ich muss das ganze ja in den string kriegen und das will nicht klappen.
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.685 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 16:38
Du initialisierst s nicht. Ich bin gerade unsicher, ob das für lokale Strings nötig ist, aber setz vor deine Schleifen mal ein "s := '';". Ansonsten ist das Zusammenbauen mit "s := s + t" an sich nicht falsch, wenn auch nicht gerade speicherfreundlich.

Edit: Und gewöhne dir in deinem eigenen Interesse eine Codeformatierung an. Erhöht die Lesbarkeit gewaltig!
Delphi-Quellcode:
procedure TForm15.Button2Click(Sender: TObject);
var
  color: TColor;
  B, Y, X: Integer;
  hex, s, t:string;
begin
  for Y := 0 to Image1.Height-1 do
  begin
    s := '';
    for X := 0 to Image1.Width-1 do
    begin
      color := image1.Canvas.Pixels[X, Y];
      B := GetBValue(color);
      t := Chr(B);
      //Showmessage(t);
      s := s + t;
    end;
    Memo1.Lines.add(s);
  end;
end;
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#7

Re: Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 16:40
Zitat von Medium:
Du initialisierst s nicht. Ich bin gerade unsicher, ob das für lokale Strings nötig ist, aber setz vor deine Schleifen mal ein "s := '';". Ansonsten ist das Zusammenbauen mit "s := s + t" an sich nicht falsch, wenn auch nicht gerade speicherfreundlich.
Nein, nicht nötig bei lokalen Variablen vom Typ String, da Strings ja verwaltete Resourcen sind.

PS: Müsste es bei deiner Sig nicht "to breakfast" heißen?
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.685 Beiträge
 
Delphi 2007 Enterprise
 
#8

Re: Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 16:42
Mh, dann ists seltsam


Zitat von Muetze1:
PS: Müsste es bei deiner Sig nicht "to breakfast" heißen?
Nope
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#9

Re: Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 18:04
Hmm, es fehlt noch etwas an der richtigen Strategie für Steganographie.
Also man darf/sollte ja nur das niederwertigste Bit einer Farbe verwenden, andernfalls fällt es auf.
Pro Pixel sind es drei Grundfarben, also wäre 3 Bit möglich.
Man könnte aus den 3 Bits ein Nutzdatenbit über einen Mehrheitsentscheid machen.
Nutzbit ist dann True, wenn mehr als ein Farbbit gesetzt ist.
R|G|B Nutzbit
0|0|0 => 0
0|1|0 => 0
1|1|0 => 1
....

Durch dieses Verfahren werden die Daten verschleiert, so dass ein potentieller Lauscher nicht gleich weiss, wie die Nutzdaten codiert sind.
Andreas
  Mit Zitat antworten Zitat
Benutzerbild von XXcD
XXcD

Registriert seit: 19. Sep 2006
581 Beiträge
 
Delphi 2007 Professional
 
#10

Re: Image Canvas Pixel in Memo

  Alt 29. Mai 2008, 18:12
Hmm ja das soll ja erstmal keine Verschlüsselung sein sondern nur Daten sollen in dem Bild sein.
Und mit den Tips hat es leider noch nicht hingehauen.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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