Einzelnen Beitrag anzeigen

Benutzerbild von gizzy
gizzy

Registriert seit: 3. Jun 2007
59 Beiträge
 
Delphi 2007 Enterprise
 
#8

Re: DLL private prozeduren

  Alt 13. Feb 2009, 17:51
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.
  Mit Zitat antworten Zitat