- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Link Copied
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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
![](/skins/images/7B0AB6865064EAE32B30EC9A4E94B48A/responsive_peak/images/icon_anonymous_message.png)
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page