Calling Intel's IPP from Delphi6

Calling Intel's IPP from Delphi6

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

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

6 post / 0 nuovi
Ultimo contenuto
Per informazioni complete sulle ottimizzazioni del compilatore, consultare l'Avviso sull'ottimizzazione

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.

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

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.

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

Ritratto di vladimir-dudnik (Intel)

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

Accedere per lasciare un commento.