Windows 10: Entry Point Not Found

[jmpessoa]

All!

I just got Windows 10 update system....
and I have got: "Entry Point Not Found [FT_Done_Freetype]" 
for Lazarus:1.5 trunk svn 49903 [see Attachment ]

some explanation?

[ChrisF]

"freetype-6.dll" is missing  (just a guess) ?

[jmpessoa]

My system has "freetype-6.dll" in  C:\Windows

and now I put a copy in C:\Windows\System32 ....

but the error continue...

[ChrisF]

As I've written before, it's just a guess (I can't do any relevant tests).

Juts in case, in you are using a 32 bits program (i.e. 32 bits version of Lazarus.exe), the dll file should go in "C:\Windows\SysWOW64", not in "C:\Windows\System32".


** * EDIT *** If you using a 64 bits version of Windows 10, and if your dll file is a 32 bits version, of course...

[jmpessoa]

Juts in case, in you are using a 32 bits program (i.e. 32 bits version of Lazarus.exe), the dll file should go in "C:\Windows\SysWOW64", not in "C:\Windows\System32".

Yes,  I use Win10/64 ... and put now  the "freetype-6.dll" C:\Windows\SysWOW64

and error continue! 

Note: I can run old rev. "47987" and stable 1.4.4

[ChrisF]

Sorry, when you've done all the standard verifications (see hereafter), I don't see what else you can do: eventually make a test by copying the .dll file into the directory of your executable (apparently in c:\laz4android, in your case).

Standard verifications:

1/  "lazarus.exe" is 32 bits AND "freetype-6.dll" is 32 bits
OR
    "lazarus.exe" is 64 bits AND "freetype-6.dll" is 64 bits

2/  "freetype-6.dll" is in \Windows\SysWOW64 for a 32 bits version
AND/OR
    "freetype-6.dll" is in \Windows\System32 for a 64 bits version (if a 64 bits version is really existing).


It might related to the trunk version of Lazarus (or the way you've built it ?), though I'm afraid I don't see why...

[Deepaak]

Just a guess try keeping freetype library in the same location of lazarus.exe. Some times it works.

[ChrisF]

And also check for the dependencies: "freetype-6.dll" needs "msvcrt.dll" (you've probably already got it), but also apparently "zlib1.dll" (this one should be checked, for sure).


*** Edit ***
It seems I've missed the most important part of your error message:


lazarus.exe - Entry Point Not Found

... FT_Done_Face could not be located in the dynamic link library C:\laz4android\lazarus.exe


All of this seems a bit weird to me: a build trouble, may be ?

[jmpessoa]

...  All of this seems a bit weird to me: a build trouble, may be ?

Yes! I just re-build and now is OK!

Thanks ChrisF [and All]!

[jmpessoa]

Again,

I have lazWin32 1.4.4 and this simple code do not work in windows 10 [64]!

Yes, I put freetype*.dll and zlib1.dll everywhere!

I got "FT_Done_Face could not be located in the dynamic link library...."

Code: Pascal  [Select][+][-]

1. unit Unit1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. interface
6.  
7. uses
8.   Classes, SysUtils, FileUtil, Forms, Controls,
9.   Graphics, Dialogs, FTFont, freetype;
10.  
11. type
12.  
13.   { TForm1 }
14.  
15.   TForm1 = class(TForm)
16.     procedure FormCreate(Sender: TObject);
17.     procedure FormDestroy(Sender: TObject);
18.   private
19.     { private declarations }
20.   public
21.     { public declarations }
22.     FFreeTypeFont: TFreeTypeFont;
23.   end;
24.  
25. var
26.   Form1: TForm1;
27.  
28. implementation
29.  
30. {$R *.lfm}
31.  
32. { TForm1 }
33.  
34. procedure TForm1.FormCreate(Sender: TObject);
35. begin
36.   FFreeTypeFont:=TFreeTypeFont.Create;
37.   //FTfont.InitEngine;
38. end;
39.  
40. procedure TForm1.FormDestroy(Sender: TObject);
41. begin
42.   FFreeTypeFont.Free;
43. end;
44.  
45. end.
46.  

[balazsszekely]

@jmpessoa

That message has nothing to do with Lazarus. There could only be two reasons:
1. Wrong architecture(you're trying to load 64 bit dll into 32 bit exe or vice versa)
2. "FT_Done_Face" it's not exported(dll is corrupted somehow). You can verify this with PEExplorer or other tools.

Please try this:

Code: Pascal  [Select][+][-]

1. uses Windows, Dynlibs, LCLType, Freetypeh;
2.  
3. procedure TForm1.Button1Click(Sender: TObject);
4. var
5.   FarProc: TFarProc;
6.   LibHandle: TLibHandle = NilHandle;
7. begin
8.   LibHandle := LoadLibrary(freetypedll);
9.   if LibHandle <> NilHandle then
10.   begin
11.     FarProc := GetProcedureAddress(LibHandle, 'FT_Done_Face');
12.     if FarProc <> nil then
13.       ShowMessage('function "FT_Done_Face exist"')
14.     else
15.       ShowMessage('Cannot locate function "FT_Done_Face". Reason: ' + sLineBreak + SysErrorMessage(GetLastError));
16.   end
17.   else
18.     ShowMessage('Cannot load library. Reason: ' + sLineBreak + SysErrorMessage(GetLastError));
19.  
20. end;    

             

[jmpessoa]

Hello GetMem!!

...dll is corrupted somehow..

Yes!

I got a new "freetype6.dll" from here:

http://originaldll.com/file/freetype6.dll/31599.html

and renamed to "freetype-6.dll", put it in "everywhere" [reboot system]and now all is OK!!

Thank you!