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

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

Lascia un commento

Eseguire l'accesso per aggiungere un commento. Non siete membri? Iscriviti oggi