![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() В моей DLL есть процедура
Код:
uses SysUtils, Graphics, Windows, Forms, Math, ExtCtrls, Classes; ... procedure ImageNegative(Image: TImage); var r, g, b: Byte; i, j: Integer; begin for i:=0 to Image.Width - 1 do for j:=0 to Image.Height - 1 do begin r:=GetRValue(Image.Canvas.Pixels[i, j]); g:=GetGValue(Image.Canvas.Pixels[i, j]); b:=GetBValue(Image.Canvas.Pixels[i, j]); Image.Canvas.Pixels[i, j]:=RGB(255 - r, 255 - g, 255 - b); end; Image.Refresh; end; exports ImageNegative; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#2
|
||||
|
||||
![]() procedure ImageNegative(Image: TImage); stdcall; export;
Не профи, но и не чайник ![]() ![]() |
#3
|
|||
|
|||
![]() Не обязательно, приведи пример программы?
|
#4
|
||||
|
||||
![]() В программе пишу:
Код:
... implementation ... procedure ImageNegative(Image: TImage); external 'Путь к dll' name 'ImageNagative'; ... procedure TMyForm.NegButtonClick(Sender: TObject); begin ImageNegative(Image1); end; ... Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#5
|
|||
|
|||
![]() 'ImageNagative'
Ошибка в букве (чтобы не было ошибок, применяй копирование). |
#6
|
||||
|
||||
![]() Это я опечатался. А процедура вызывается. Если бы я напечатал неправильно, то была бы другая ошибка. Ошибка такая Exception EInvalidOperator in Module Methods.dll at 00024E10
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#7
|
|||
|
|||
![]() у меня все работает нормально
|