Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Внизjpg Найти похожие ветки
← →
Zool (2002-02-28 10:38) [0]Уважаемые мастаки! Кто нибудь знает как перекодировать файл с расширением bmp в jpg? Спасибо.
← →
Алексей Петров (2002-02-28 11:26) [1]сменить расширение - RenameFile(FileName, ChangeFileExt(FileName, ".jpg")) :)
Про графические форматы вопроса вроде не было?
← →
Deus (2002-02-28 11:36) [2]procedure tform1.ConvertImage(Source,DestPath:string; NewS:integer; DestExt:string);
var I:TImage; GI:TGifImage; JI:TJpegImage; B:TBitmap; srext,destname:string;
pf:TPixelFormat; compr:integer; newsize:tpoint;
begin
NewSize.x:=news;
NewSize.y:=news;
B:=TBitMap.Create;
I:=TImage.Create(Form1);
I.Picture.LoadfromFile(Source);
if (i.Picture.width<=news) and (i.Picture.height<=news) then begin
copyfile(source,destpath+extractfilename(source),nil);
exit;
end;
if (I.Picture.Width<=NewSize.x) and (I.Picture.Height<=NewSize.y) then begin
B.Width:=min(NewSize.x,I.Picture.Width);
B.Height:=min(NewSize.y,I.Picture.Height);
end else
if (I.Picture.Width/NewSize.x)>(I.Picture.Height/NewSize.y) then begin
B.Width:=NewSize.x;
B.Height:=Muldiv(I.Picture.Height,NewSize.x,I.Picture.Width);
end else begin
B.Height:=NewSize.y;
B.Width:=Muldiv(I.Picture.Width,NewSize.y,I.Picture.Height);
end;
B.Canvas.StretchDraw(Rect(0,0,B.width-1,B.Height-1),I.Picture.Graphic);
srext:=AnsiLowerCase(ExtractFileExt(source));
if DestExt="*" then DestExt:=srext;
DestName:=NormalDir(DestPath)+ExtractFileName(Source);
if srext=".bmp" then B.SavetoFile(DestName)
else if srext=".jpg" then begin
JI:=TJpegImage.Create;
JI.Assign(B);
compr:=100;
JI.Assign(B);
JI.CompressionQuality:=compr;
JI.Compress;
JI.SavetoFile(DestName);
dec(compr,5);
JI.Free
end else if srext=".gif" then begin
GI:=TGifImage.Create;
GI.LoadFromFile(Source);
GI.Assign(B);
GI.SavetoFile(DestName);
GI.Free
end else ShowMessage("Unknown extension: "+srext);
B.Free;
I.Free;
end;
в uses добавить rxgif,jpeg
← →
Praco (2002-02-28 12:00) [3]> Deus
Даже я испугался :))
Проще надо :
JPEG.Assign(BMP); // JPEG : TJpegImage, BMP : TBitmap
← →
Merlin (2002-02-28 14:20) [4]Еще проще перед задаванинем вопроса смотреть в FAQ
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988625147&n=21
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c