Forum: Programmieren allgemein
by gizzy,
13. Feb 2009
interface
uses ExtCtrls, Graphics;
function decrypt(img: String; font: String): String; stdcall;
implementation
function decrypt(img: String; font: String): String; stdcall; external 'thedll.dll';
Forum: Programmieren allgemein
by gizzy,
13. Feb 2009
function decrypt(img: TBitmap; font: PChar): PChar; stdcall;
begin
Image:= TImage.Create(nil);
//Load Image
Image.Picture.Bitmap.Assign(img);
Image.Width:= img.Width;
Image.Height:= img.Height;
//Open Knowledge
BackProp := TBackProp.Create(DEFAULT_INPUT_PATTERN_HEIGHT,
DEFAULT_INPUT_PATTERN_WIDTH,
Forum: Programmieren allgemein
by gizzy,
13. Feb 2009
Debuggen? Wie?
Doch, Pchar als Rückgabe ist schon beabsichtigt :)
Forum: Programmieren allgemein
by gizzy,
13. Feb 2009
Der Text am Anfang bezieht sich ja eig. auf die Strings.
Was muss ich also machen um das ich das Bild bearbeiten kann?
Zur Zeit habe ich das so:
function bearbeiten(img: TImage; font: PChar): PChar; stdcall;
begin
Image:= TImage.Create(nil);
Image.Width:= img.Width;