1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

<?php
$handle = fopen ("./Nachricht.txt", "r");
$i = 0;
$i2 = 0;
header ("Content-type: image/png");
$im = @imagecreatetruecolor (253, 199);
$background_color = ImageColorAllocate ($im, 255, 255, 255);
$pixel_color = array();
while (!feof($handle)) {
  $rrgb = translate(trim(fgets($handle, 4096)));
  if(!isset($pixel_color[$rrgb[0].$rrgb[1].$rrgb[2]])){
    $pixel_color[$rrgb[0].$rrgb[1].$rrgb[2]] = ImageColorAllocate ($im, $rrgb[0],$rrgb[1],$rrgb[2]);
  }
  imagesetpixel($im,$i2,$i,$pixel_color[$rrgb[0].$rrgb[1].$rrgb[2]]);
  if($i2 == 263){
    $i++;
    $i2 = 0;
  }
  $i2++;
}

ImagePNG ($im);
fclose ($handle);

function translate($zahl){
  $rgb = array();
  $hexv = dechex($zahl);
  while(strlen($hexv)<6){
    $hexv = '0'.$hexv;
  }
  $rgb[0] = hexdec(substr($hexv,0,2));  
  $rgb[1] = hexdec(substr($hexv,2,2));  
  $rgb[2] = hexdec(substr($hexv,4,2));
  return $rgb;  
}
?>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button1Click(Sender: TObject);
var s, dir : String;
    i : Integer;
    f : TextFile;
begin
x := -1; y := 1; weite := Edit1.text; dir := 'Nachricht.txt';
AssignFile (f, dir);
Reset (f);
while not EOF(f)do
  begin
    ReadLn(f, s);
    inc(x);
if x > weite then
  begin
  x := 0;
  inc(y);
  end;
  Form1.Canvas.Pixels[x,y]:=strtoint('$' + inttohex(strtoint(s),2));
end;
end;					

1:

Form1.Canvas.Pixels[X, Y] := StrToInt(S);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

  i := Memo1.Lines.Count;
  //vom Quadrat zum Rechteck
  for z := round(sqrt(i)) downto 1 do
    if Trunc(i/z) = i/z then
    begin
      F_X := Trunc(i/z);
      F_Y := Trunc(i/F_X);
      break;
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Edit1Change(Sender: TObject);
var
    X:Integer;
    A, B: Integer;

    f: Textfile;
begin
    X := StrToIntDef(Edit1.Text, 228);

    AssignFile(F, 'nachricht.txt');
    Reset(F);
    B := 0;
    While not EOF(f) do
    BEgin
        ReadLn(F, A);
        Canvas.Pixels[B mod X, B div X] := A;
        Inc(B);
    end;
    CloseFile(F);
end;