topic Re: Calling Intel's IPP from Delphi6 in Intel® Integrated Performance Primitives

Calling Intel's IPP from Delphi6

Deleted_U_Intel — Sun, 28 Dec 2003 12:52:26 GMT

Would you tell me how to Calling Intel's IPP from Delphi6.

Thanks.

mailto: hujunyi@163.com ; huzhongyi@hotmail.com

Re: Calling Intel's IPP from Delphi6

adrennan — Mon, 29 Dec 2003 11:11:06 GMT

I have been using the new IPP from Delphi 7 without any issues. The downloads section contains one small sample, and I have been able to convert any headers as needed.

Re: Calling Intel's IPP from Delphi6

Ying_S_Intel — Mon, 29 Dec 2003 16:11:41 GMT

Hi,

With the latest version of Intel IPP 4.0, we have provided a sample to demonstratethe use of Intel IPP within the Borland* Delphi* development environment..Source code available for the Windows* operating systemopment environment. You can download it under product "Intel IPP for Windows*" from Intel Premier Support after you complete the registration for Intel IPP.

See this URL to get more details on registration:

http://www.intel.com/software/products/ipp/

Hope it helps.
Thanks,
Ying

Re: Calling Intel's IPP from Delphi6

seiji-torigoe — Tue, 06 Jan 2004 09:49:58 GMT

This is the easiest sample.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function ippsMalloc_8u(Size: Integer): Pointer; stdcall; external 'ipps20.dll';
procedure ippsFree(p: Pointer); stdcall; external 'ipps20.dll';

function ippiSet_8u_C1R(Value: Byte; pDst: PByte; DstStep: Integer; RoiSize: TPoint): Integer; stdcall; external 'ippi20.dll';
function ippiSum_8u_C1R(pSrc: PByte; SrcStep: Integer; RoiSize: TPoint; pSum: PDouble): Integer; stdcall; external 'ippi20.dll';

procedure TForm1.Button1Click(Sender: TObject);
var ImgW, ImgH, ImgStep: Integer; pImg: PByte;
var Value: Byte; RoiSize: TPoint; Sum: Double;
begin
ImgW := 10; ImgH := 10; ImgStep := (ImgW + 15) and $FFFFFFF0;
pImg := ippsMalloc_8u(ImgH * ImgStep);
try
Value := 5; RoiSize := Point(ImgW, ImgH);
ippiSet_8u_C1R(Value, pImg, ImgStep, RoiSize);
ippiSum_8u_C1R(pImg, ImgStep, RoiSize, @Sum);
ShowMessage(FloatToStr(Sum));
finally
ippsFree(pImg);
end;
end;

end.

Re: Calling Intel's IPP from Delphi6

hadipardis — Wed, 18 Apr 2007 12:45:42 GMT

Hi,

Your Delphi sample code is good but I think it is a great idea to include some simple but general codes for operations like Thresholding, Morphology and etc. I think thresholding sample code is very better than RGBToXYZ conversion! Anyway, I hope to see your finished realease in the early future. Thanks

Hadi

Re: Calling Intel's IPP from Delphi6

Vladimir_Dudnik — Thu, 19 Apr 2007 15:46:43 GMT

Hey,

did you see IPP 5.x Delphi sample? This demostrates more functions (including filtering, convoltion, distance). I hope it is possible to add everythink you need additionally just by loking at that sample.

Regards,
Vladimir