Форум: "Прочее";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
ВнизText Image Найти похожие ветки
← →
Slider007 © (2006-08-29 09:37) [0]Баян - не баян. Не знаю.
Вот наткнулся http://www.text-image.com/
Сервис конвертит любые фотки в html, ascii формат.
Всера целый вечер игрался :)
Сцылку нашел в июньском CHIP"е.
← →
PSPF2003 © (2006-08-29 09:46) [1]Наткнулся на чьем-то сайте
procedure TForm1.Button2Click(Sender: TObject);
var S : TextFile;
PixColor : String;
ArPixColor : Array [1..3] of String;
I,K,X : Integer;
Flags : OLEVariant;
begin
If SaveDialog1.Execute then
begin
AssignFile(S,SaveDialog1.FileName);
Rewrite(S);
Writeln(S,"<Html><Head><Title>Рисунок</Title></Head><Body>");
Writeln(S,"<Center>");
Writeln(S,"<Table cellpadding=0 cellspacing=0 border=0 Height= "
+ IntToStr(Image1.Picture.Height-1) +
" Width= "
+ IntToStr(Image1.Picture.Width-1) +">");
For I:=1 to Image1.Picture.Height-1 do
Begin
Writeln(S,"<TR>");
For K:=1 to Image1.Picture.Width-1 do
Begin
//PixColor:=ColorToString(Image1.Canvas.Pixels[K,I]);
//Delete(PixColor,0,1);
PixColor:=IntToHex(ColorToRGB(Image1.Canvas.Pixels[K,I]),6);
For X:=1 to 3 do
ArPixColor[X]:=PixColor;
Delete(ArPixColor[1],2,4);
Delete(ArPixColor[2],4,2);
Delete(ArPixColor[2],1,2);
Delete(ArPixColor[3],1,4);
PixColor:=ArPixColor[3]+ArPixColor[2]+ArPixColor[1];
Writeln(S,"<TD Height=1 Width=1 bgcolor="#"
+ PixColor + ""></Td>");
end;
Writeln(S,"</TR>");
end;
Writeln(S,"</Center></Body></Html>");
CloseFile(S);
Flags := 0;
WebBrowser1.Navigate(WideString(SaveDialog1.FileName), Flags, Flags, Flags, Flags);
{ShowMessage(PixColor);
ShowMessage(ArPixColor[1]);
ShowMessage(ArPixColor[2]);
ShowMessage(ArPixColor[3]);{}
end;
← →
Furyz © (2006-08-29 18:05) [2]сслыка проще и красивее
← →
PSPF2003 © (2006-08-29 18:38) [3]
> Furyz ©
Мы гордые и легких путей не ищем :)
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c