Re: [fpc-pascal] Connecting to a MySQL Server

2017-10-05 Thread Michael Van Canneyt
On Thu, 5 Oct 2017, Terry A. Haimann wrote: What library do I need to install on Raspian (Raspberry Pi) to allow Free Pascal to attach to a Mysql Server. Note the MySQL Server is running on a i5 and is actully MariaDB 5.5.47 An unhandled exception occurred at $000E7398: EInOutError: Can

[fpc-pascal] Connecting to a MySQL Server

2017-10-05 Thread Terry A. Haimann
What library do I need to install on Raspian (Raspberry Pi) to allow Free Pascal to attach to a Mysql Server. Note the MySQL Server is running on a i5 and is actully MariaDB 5.5.47 An unhandled exception occurred at $000E7398: EInOutError: Can not load default MySQL library

Re: [fpc-pascal] Managed properties idea

2017-10-05 Thread Marcos Douglas B. Santos
On Thu, Oct 5, 2017 at 5:55 AM, Ryan Joseph wrote: > >> On Oct 5, 2017, at 12:28 PM, Sven Barth via fpc-pascal >> wrote: >> >> The way to go in Object Pascal are reference counted interfaces (aka >> COM-style interfaces). After all

Re: [fpc-pascal] For ..in GetEnumerator Allocation

2017-10-05 Thread Martok
Am 04.10.2017 um 11:26 schrieb Michael Van Canneyt: > As an alternative you can create an object enumeator. > It's simply allocated on the stack, and you can reset it in the enumerator > operator. That is by far the easiest solution (records need $modeswitch advancedrecords, but are otherwise

[fpc-pascal] how to get a list of all thread id

2017-10-05 Thread Dennis
In my multi thread programs (I use multiple threads in my program and the windows dll that I used also used multiple threads), from time to time, there are some problems (e.g some exceptions are raised) which caused my program to free after the Application.Run. The freezing seem to occur even

Re: [fpc-pascal] Finding long file names

2017-10-05 Thread Sven Barth via fpc-pascal
Am 05.10.2017 01:49 schrieb "James Richters" : > > I'm trying to use findfirst()/findnext to obtain a list of files. Here's my code: > Searchfile:=Tap_Drive+Tap_Path+'\'+Tap_SubDirectory+'\*.TAP'; > If FindFirst(Searchfile, FAAnyfile-FAHidden, FileDirInfo)=0 then

Re: [fpc-pascal] Managed properties idea

2017-10-05 Thread Ryan Joseph
> On Oct 5, 2017, at 12:28 PM, Sven Barth via fpc-pascal > wrote: > > The way to go in Object Pascal are reference counted interfaces (aka > COM-style interfaces). After all one should program against an interface > anyway and that reference counted

Re: [fpc-pascal] Finding long file names

2017-10-05 Thread Michael Van Canneyt
On Wed, 4 Oct 2017, James Richters wrote: I'm trying to use findfirst()/findnext to obtain a list of files. Here's my code: Searchfile:=Tap_Drive+Tap_Path+'\'+Tap_SubDirectory+'\*.TAP'; If FindFirst(Searchfile, FAAnyfile-FAHidden, FileDirInfo)=0 then .. It finds most files, even ones with