Re: [fpc-pascal] Microsoft SAPI on Freepascal

2023-06-26 Thread Rik van Kekem via fpc-pascal
begin   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 __

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. https://forum.lazarus.freepascal.org/index.php/top

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 (i

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 a

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] := N

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 d

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 her

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