Delphi-Quellcode:
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,
DEFAULT_TARGET_PATTERN_HEIGHT,
DEFAULT_TARGET_PATTERN_WIDTH,
DEFAULT_NUMBER_OF_HIDDEN_NEURON);
//Create Knowledge from FONT
BackProp.Create(font);
//Init standard holds
FBWThreshold:= 196;
FNoiseThreshold := 10;
FSpaceWidth := 22;
//Start solving
Recognize;
result:= Pchar(FResultText);
//Free Image
if assigned(Image) then
freeandnil(Image);
end;
Das ist die Funktion in meiner
DLL. Ich bekomme jetzt mit Bitmap einen seltsamen Fehler (Konvertierung)
Und wie soll ich in meiner
DLL ein Haltepunkt erstellen??
Sobald ich meine ganzen Funktionen zusammen mit dem Aufruf in eine
VCL Unit packe funktioniert es...
David
[Fehler] Unit1.pas(1): Dein Kaffee ist kalt.
[Fehler] Unit1.pas(2): Dein linker großer Zeh ist eingeschlafen.
[Fataler Fehler] Projekt1.dpr(5): Verwendete
Unit "Unit1.pas" kann nicht comiliert werden.