Re: [fpc-pascal] Microsoft SAPI on Freepascal

2023-06-26 Thread Rik van Kekem via fpc-pascal
  Voice := CreateOLEObject('SAPI.SpVoice');   Voice.Speak('I am speaking.', 0);   Voice.Speak('I am also speaking.', 0); end. I didn't even have the problem with any EZeroDivide exception. -- Grtz, Rik van Kekem ___ fpc-pascal maillist - fpc-pascal

Re: [fpc-pascal] IRC channel for FreePascal support ?

2023-04-13 Thread Rik van Kekem via fpc-pascal
Op 13-04-2023 om 12:53 schreef Jacob Kroon via fpc-pascal: Thanks for checking, but well, I just got contacted by "Joanna" privately on IRC, this is the chatlog: The following topic might be of interest. You can view it without registering.

Re: [fpc-pascal] Where to download OpenSSL (for windows 64 bit) that is used by fphttpclient

2018-04-19 Thread Rik van Kekem
On 18-04-2018 18:57, Dennis wrote: From the wiki, it went to https://wiki.openssl.org/index.php/Binaries for the binary dll but I tried the link https://indy.fulgan.com/SSL/  in the wiki and it did not work. Why didn't the fulgan.com link work for you?? It should. Note: You can also use http

Re: [fpc-pascal] Seek with text file

2018-04-03 Thread Rik van Kekem
Op 03-04-2018 13:58 schreef James Richters: Thank you for the advice and for the example. I don't know what is considered a large file.. these files can be maybe about 1000 lines long, most will be less, would this solution be suitable for files of this size? Is Tstringlist something like an

Re: [fpc-pascal] Seek with text file

2018-04-03 Thread Rik van Kekem
Op 03-04-2018 13:04 schreef Anthony Walter: If the file is not to big you could simply write: procedure ChangeLastLine(const FileName, NewLine: string); var   S: TStrings; begin   S := TStringList.Create;   try     S.LoadFromFile(FileName);     if S.Count > 0 then       S[S.Count - 1] :=

Re: [fpc-pascal] Seek with text file

2018-04-03 Thread Rik van Kekem
Op 03-04-2018 12:03 schreef James Richters: So then I tried Var Myfile: file of String; Mydata:String; Assign(myfile,'test.txt'); Reset(myfile); Seek(myfile,FILESIZE(myfile)-1); Write(myfile,'New Line'+mydata); Close(myfile); And what

Re: [fpc-pascal] Function list for pascal in notepad++?

2018-03-17 Thread Rik van Kekem
On 17/03/18 15:35, Bo Berglund wrote: Does anyone here have a working functionlist.xml file for Notepad++? There was an attempt done to include it in Notepad++. But it's not perfect. You can find it here: https://github.com/notepad-plus-plus/notepad-plus-plus/pull/3663/files Discussion is

Re: [fpc-pascal] Linux getifaddrs

2018-03-01 Thread Rik van Kekem
Op 01-03-2018 00:08 schreef Michael Van Canneyt: On Wed, 28 Feb 2018, Brian wrote: Has anyone translated* getifaddrs* function to Free Pascal ? http://man7.org/linux/man-pages/man3/getifaddrs.3.html Not to my knowledge. It's not a kernel function, but a Libc function, as far as I can see ?

Re: [fpc-pascal] TStringHelper.Split() issue?

2016-03-08 Thread Rik van Kekem
Michael Van Canneyt wrote: On FPC, it returns 1, on Delphi, it returns 2. And debuging the "splited" variable, on FPC I get only and "x" value, Delphi "x" and "y". Is this a bug? Yes. Quite strange, because I have testcases for this ? And content: string = 'x:yb'; does work correctly. The