Would you tell me how to Calling Intel's IPP from Delphi6.
mailto: email@example.com ; firstname.lastname@example.org
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.
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:
Hope it helps.Thanks,Ying
This is the easiest sample.
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;
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;
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
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.