[Interface]

Уже месяца 3 ищу в инете процедуру поворота изображения. Скачал это:

Код:

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

procedure povorot(bmp1: tbitmap; var bmp2: tbitmap; a: real); var   x1,y1: integer; // íîâàÿ òî÷êà   x2,y2: integer;   r: single; // ðàñòîÿíèå îò xo,yo è òî÷êîé êîòîðóþ íóæíî ïîâåðíóòü   xo, yo: integer; // îòíîñèòåëüíî êàêîé òî÷êè íóæíî ïîâîðà÷èâàòü   s, c: extended; // sin cos begin   xo:=bmp1.Width div 2; yo:=bmp1.Height div 2; // öåíòð êàðòèêè   for y2 := 0 to bmp1.Height - 1 do     for x2 := 0 to bmp1.Width - 1 do     begin       r := sqrt(sqr(x2 - xo) + sqr(y2 - yo)); // ðàñòîÿíèå îò ïîâîðà÷èâàåìîé òî÷êè äî òîé òî÷êè îòíîñèòåëüíî êîòîðîé íóæíî ïîâîðà÷èâàòü       SinCos(a + arctan2((y2 - yo), (x2 - xo)), s, c);       x1:=round(xo + r * c); y1:=round(yo + r * s);       if (x1>=0)and(x1<bmp1.Width)and(y1>=0)and(y1<bmp1.Height) then // åñëè òî÷êà ïîñëå ïîâîðîòà íàõîäèòñÿ íà êàðòèíêå òî ðèñóåì åå       begin         if bmp1.Canvas.Pixels[x1,y1]<>clwhite then           bmp2.Canvas.Pixels[x2,y2]:=bmp1.Canvas.Pixels[x1,y1];       end       else // èíà÷å âìåñòî íåå öâåò êîòîðûé áóäåò ïðîçðà÷íûé(â äàííîì ñëó÷àå áåëûé)         bmp2.Canvas.Pixels[x2,y2]:=clwhite;     end; end;

После копирования с пояснениями что то случилось...
Вообщем функцию скачал... А че с ней делать незнаю!!! Пожалуйста объясните! Или кинте другую...
И что такое DLL и что с ним (как?) делать киньте ссылку на статейку... плз.

[Xcopy]

дык скачай заного, че непомниш откуда качал?

[Xcopy]

http://www.helloworld.ru/texts/comp/.../dll/index.htm
тут все про ДЛЛ в делфи!

[Interface]

Не помню давно качал... Ну кто знает???

[lmikle]

1. А тебе они нужны? Будешь сам разбираться? Не считая того, что собственно, по параметрам все и так ясно.
2. Попробуй найди библиотеку gfx. я ее в свое время с torry качал. там много разных функций.

[AlexSku]

Кинь Image и загрузи картинку bmp. А также кнопку. Добавь uses Math.

Код:

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 37

type   TForm1 = class(TForm)     Button1: TButton;     Image1: TImage;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   uses Math;   {$R *.dfm}   procedure povorot(bmp1: tbitmap; var bmp2: tbitmap; a: real); ... end;   procedure TForm1.Button1Click(Sender: TObject); var   b1: TBitmap; begin   b1:= TBitmap.Create;   b1.Width:= Image1.Picture.Bitmap.Height; { Это для поворота на 90 град. }   b1.Height:= Image1.Picture.Bitmap.Width; { но можно использовать другие размеры }   povorot(Image1.Picture.Bitmap, b1, PI/2.0); { Угол может быть любым }   Image1.Picture.Bitmap.Assign(b1);   b1.Free; end;   end.

[Interface]

Спасибо... буду разбираться...