IMAGE2HTML [CONVERTISSEUR D'IMAGES AU FORMAT HTML]

Commentaire de icb3a le 04/03/2004 12:57:15

Je vois pas l'interet du programme..

Commentaire de costello le 04/03/2004 20:13:01

bon j'ai retouché un tout petit peu le code source, rapidement
regarde le résultat ici: http://www.planete-gba.net/images/html.gif
très intéressant en tout cas...
maintenant:
- le HTML de sortie pèse 60ko (avec le sample proposé)
- la génération est instantanée
- on reconnait beaucoup mieux l'image (sauf si le choix était volontaire, auquel cas on peut toujours changer le caractère)
nouveau code:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
ImgX : integer;
ImgY : integer;
str: string;
List: TStringList;
begin
SaveDialog1.Execute;
if (SaveDialog1.FileName <> '') then begin
ImgX := 0;
ImgY := 0;
List := TStringList.Create;
List.Add('<dl><dt><font size=1 face=Terminal>');
  While (ImgY <= Image1.Width) do begin
   if (ImgX = 0) then List.Add('<dt>');
    While (ImgX <= Image1.Height) do begin
     str  := str + '<font color='+cHTML(Image1.Canvas.Pixels[ImgX, ImgY])+'>Û';
     if (ImgX = Image1.Height) then inc(ImgY);
     inc(ImgX);
     end;
     List.Add(str);
     str := '';
     ImgX := 0;
  end;
List.Add('</dl>');
List.SaveToFile(SaveDialog1.FileName+'.html');
List.Free;
SaveDialog1.FileName := '';
end;
end;

Commentaire de TheChikenKiller le 06/03/2004 14:36:11

Une très bonne ideee de programme, de plus j'en cherchai un du genre !

Commentaire de GSX_HS le 24/03/2004 16:06:29

Merci costelo mais j'ais du retoucher encore un peu ton code car il ne fonctionnais pas comme je le voulais.

Je suis entrain de faire pas mal de modifs sur mon code et je ferai un update prochainement.

Commentaire de larr le 17/06/2004 17:49:01

y'a un bleme je vien de tester image.html avec moz et le rendu est pas le meme qu'avec ie