einfach jedem Pixel kopieren?
Delphi-Quellcode:
function inttohexstr(i:integer):string;
begin
Eben integerwert in einen hexstring verwandeln, genug Beispiele im Forum
end;
procedure bmptostr;
var
b:tbitmap;
s:string;
x,y:integer;
begin
... (bmp erstellen)
s:=inttohexstr(b.width)+inttohexstr(b.height);
for x:=1 to b.with do
for y:=1 to b.height do
begin
s:=s+inttohexstr(integer(b.pixels[x,y]));
end;
end;
Umkehrfunktion kannst du dir ja denken (ichbins.schreibfaul:=true
Michael Enßlin
Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates