![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | 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;  | 
| 
		 
			 
			#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; ...  | 
| 
		 
			 
			#5  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 'ImageNagative' 
		
	
		
		
		
		
		
	
		
		
	
	
	Ошибка в букве (чтобы не было ошибок, применяй копирование).  | 
| 
		 
			 
			#6  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Это я опечатался. А процедура вызывается. Если бы я напечатал неправильно, то была бы другая ошибка. Ошибка такая Exception EInvalidOperator in Module Methods.dll at 00024E10 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#7  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 у меня все работает нормально 
		
	
		
		
			 |