Re: [fpc-pascal] Graphic LRS creator
Please, is there a .zip version for windows? Thanks! ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) - Original Message - From: papelhigien...@gmail.com To: FPC-Pascal users discussions Sent: Friday, January 30, 2009 5:11 AM Subject: [fpc-pascal] Graphic LRS creator Hi all! I created a gui tool to build lazarus resouces (lrs). You can add folders and files and load/save your resource configuration. It's based on LazRes tool from Lazarus. Download: http://200.215.0.35/LazResGUI.tar.bz2 -- ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] If ShellExecute(0, 'open', PChar(ExecuteName), '', '', 0) <= 32 Then
OK. I finally got there, via much trial and error. * ExecuteName := GetEnvironmentVariable('COMSPEC'); {ExecuteName = 'C:\WINDOWS\system32\cmd.exe'} ShellExParms := (' /c ' + ExecuteName) ; If ShellExecute(0, nil, PChar(ExecuteName), PChar(ShellExParms), nil, SW_SHOWNORMAL) <= 32 Then MessageDlg('Unable to open file: ' + ExecuteName + ' ErrorCode= ' + IntToStr(0), mtError, [mbOk], 0); * Thanks all ! ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) - Original Message - From: "Bart" To: "FPC-Pascal users discussions" Sent: Wednesday, January 28, 2009 4:30 AM Subject: Re: [fpc-pascal] If ShellExecute(0, 'open', PChar(ExecuteName), '', '', 0) <= 32 Then Wild is good, but same results: Unable to open file: "%COMSPEC%/c Del2Pas.bat" ErrorCode=0 Did you try invoking notepad.exe from your batchfile? I never suggested to use %comspec%. (And as others pointed out you need to evaluate this with something like: ComspecStr := GetEnvironmentVariable('COMSPEC') (not tested)) My guess was that the process was executed but was not shown on the desktop, which lead you to conclude it was never executed. Ok, the last parameter in ShellExecute determines the way the application is shown. You specify 0, that is SW_HIDE, so you will not see the app! If the batchfile requires interaction from the user you will not see it and the batchtfile will never terminate. A returnvalue of 0 from ShellExecute means: The operating system is out of memory or resources. For batchfiles (and any other executable) you need not specify 'open', nil will suffice quite nicely in this case. There is no need for %comspec% (I'm not even sure it exists in NT based windows). Here's my testcase: procedure TForm1.Button1Click(Sender: TObject); var Res: LongWord; begin Res := ShellExecute(0, nil, PChar('test.bat'),nil,nil,SW_SHOWNORMAL); DebugLn('Res = ',DbgS(Res)); end; Here's the output: F:\LazarusProjecten>test Res = 16806 and a new window appears which shows me the output of my test.bat If I put 0 instead of SW_SHOWNORMAL then I never get to see the output of my batchfile, but it does run (I can see that because I let it write to soem file which I examine later). Tested with Lazarus 0.9.27 rev. 18450 / fpc 2.2.2 Hope this helps. Bart ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] If ShellExecute(0, 'open', PChar(ExecuteName), '', '', 0) <= 32 Then
Wild is good, but same results: Unable to open file: "%COMSPEC%/c Del2Pas.bat" ErrorCode=0 ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) - Original Message - From: "Bart" To: "FPC-Pascal users discussions" Sent: Tuesday, January 27, 2009 8:00 AM Subject: Re: [fpc-pascal] If ShellExecute(0, 'open', PChar(ExecuteName), '', '', 0) <= 32 Then Is the problem that you don't see output from del2pas.bat? or is it not executed at all (and how do you know this)? If the problem is the first, that may be so because in a .lnk you specify that the file needs a console, and just running the .bat ma prevent it frome getting a console? Put in your del2pas.bat a line like starts a GUI program like notepad.exe and see if it is launched, that would tell you definitely if the problem is having assigned a console or not. (Just a wild guess) Bart ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] If ShellExecute(0, 'open', PChar(ExecuteName), '', '', 0) <= 32 Then
I tried many combinations of "%COMSPEC% /c Del2Pas.bat" ExecuteName := ('C:\\WINDOWS\\system32\\cmd.exe ' + AppPathExe + 'Del2Pas.bat'); ExecuteName := ('"%COMSPEC%/c Del2Pas.bat"'); and many more! but still: Unable to open file: "%COMSPEC%/c Del2Pas.bat" ErrorCode=0 Help... ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) - Original Message - From: ""Vinzent Höfler"" To: "FPC-Pascal users discussions" Sent: Monday, January 26, 2009 11:53 PM Subject: Re: [fpc-pascal] If ShellExecute(0, 'open', PChar(ExecuteName), '','', 0) <= 32 Then Original-Nachricht Datum: Mon, 26 Jan 2009 17:42:23 -0600 Von: "vmars" An: fpc-pascal@lists.freepascal.org Betreff: [fpc-pascal] If ShellExecute(0, \'open\', PChar(ExecuteName), \'\', \'\', 0) <= 32 Then Thanks in advance! [Any ideas why this works: ExecuteName := (AppPathExe + 'Del2Pas.bat.lnk'); ExecuteShell; ] [But this doesn't work: ExecuteName := (AppPathExe + 'Del2Pas.bat'); ExecuteShell; And doesn't give an error msg.] Just trying an educated guess here, but I suppose .bat-files can only be executed via command.com (cmd.exe). Something like "%COMSPEC% /c Del2Pas.bat" could do the trick. Vinzent. -- Pt! Schon vom neuen GMX MultiMessenger gehört? Der kann`s mit allen: http://www.gmx.net/de/go/multimessenger ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal] Is there a way to search this pascal group
I know that I can chug thru http://lists.freepascal.org/lists/fpc-pascal/ by month/thread etc., but: Is there a way to search this pascal group: http://lists.freepascal.org/lists/fpc-pascal/ Maybe something similar to Delphi's http://www.tamaracka.com/search.htm Thanks! ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal] If ShellExecute(0, 'open', PChar(ExecuteName), '', '', 0) <= 32 Then
Thanks in advance! [Any ideas why this works: ExecuteName := (AppPathExe + 'Del2Pas.bat.lnk'); ExecuteShell; ] [But this doesn't work: ExecuteName := (AppPathExe + 'Del2Pas.bat'); ExecuteShell; And doesn't give an error msg.] procedure TForm1.ExecuteShell; begin //ShowMessage('ExecuteShell = ' + ExecuteName); If ShellExecute(0, 'open', PChar(ExecuteName), '', '', 0) <= 32 Then MessageDlg('Unable to open file: ' + ExecuteName + ' ErrorCode= ' + IntToStr(0), mtError, [mbOk], 0); end; // procedure TForm1.ExecuteShell ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] EFCreateError' Unable to create file
Ahh.., I see. Thanks! ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) - Original Message - From: "Bart" To: "FPC-Pascal users discussions" Sent: Monday, January 26, 2009 12:58 PM Subject: Re: [fpc-pascal] EFCreateError' Unable to create file On 1/26/09, vmars wrote: Double quotes are ok in windows. Check your system for any ShortCut aimed at "c:\Program Files". And you'll see double quotes. I know, but that is not what I meant by saying that double quotes are not allowed in the filename. By that I meant they are not allowed as part of the filename itself. The double quotes around the filename are put there and interpreted by the shell (OS). If you ask the OS directly for the filename, there will be no double quotes in it. Check for yourself In a DOS box do C:>copy con "1 2 3.txt" test file with spaces in its name ^Z (that is press Ctrl+Z) and press Enter. Now you create a file with spaces in its name. The shell (cmd.exe in W2K or higher) handles the double quotes. (It actually needs these to know if a space is part of the filename, or it means that the next part of the command is a new parameter) Now write a program and with FindFirst retrieve the filname and see: the double quotes are not there. Bart ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] EFCreateError' Unable to create file
Double quotes are ok in windows. Check your system for any ShortCut aimed at "c:\Program Files". And you'll see double quotes. But your right about me having too many ""s. I fixed that, and all is well. Thanks All ! ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) - Original Message - From: "Bart" To: "FPC-Pascal users discussions" Sent: Sunday, January 25, 2009 5:36 AM Subject: Re: [fpc-pascal] EFCreateError' Unable to create file >Try >Memo1.Lines.SaveToFile(ExecuteName); >Except ShowMessage('Shoots, couldnt SaveToFile!'); >end; > > [Project raised exception class 'EFCreateError' with message: > Unable to create file > ""C:lazarusfpc2.2.2bini386-win32Del2PasDel2PasDel2Pas.bat""] You cannot create filenames that have double quotes (") in them on Windows (your ExecuteName has double quotes in it as you stated yourself), so the EFCreateError is correct. See for yourself: ... Try Memo1.SaveToFile(ExecuteName); Except On E: Exception do begin ShowMessage('Exception occurred of '+E.ClassName+LineEnding+ 'Attempted to save to:'+LineEnding+>'+ExecuteName+'<'); end; And you will see: Exception occurred of EFCreateError Attempted to save to: "C:\lazarus\fpc\2.2.2\bin\i386-win32\Del2Pas\Del2Pas\Del2Pas.bat"< And you will see the double quotes in the filename... I tested your code in Lazarus and in Delphi and both raise the error with the filename you supplied to SaveTofile (that is with all backslashes intact), so I cannot reproduce the second part of your "bug". Bart ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal] EFCreateError' Unable to create file
(Lazarus-0.9.26-fpc-2.2.2-win32.exe) winXP sp2 I am trying to SaveToFile a Memo1 to disk. But can't seem to get it to work. Is there a known bug? Try Memo1.Lines.SaveToFile(ExecuteName); Except ShowMessage('Shoots, couldnt SaveToFile!'); end; [Project raised exception class 'EFCreateError' with message: Unable to create file ""C:lazarusfpc2.2.2bini386-win32Del2PasDel2PasDel2Pas.bat""] I'm wondering 'How come ExecuteName got all the \s taken out?'. 'F7' shows that : 'ExecuteName' = "C:\lazarus\fpc\2.2.2\bin\i386-win32\Del2Pas\Del2Pas\Del2Pas.bat" ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] n-tier development with Free Pascal
fpGui very cool ! ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) - Original Message - From: "Graeme Geldenhuys" To: "FPC-Pascal users discussions" Sent: Saturday, January 24, 2009 1:54 AM Subject: [fpc-pascal] n-tier development with Free Pascal I haven't dabbled into the DB components in FPC and Lazarus much. Does Free Pascal have a TClientDataset? Has anybody done any 3-tier development with Free Pascal? The last time I did 3-tier development with Delphi 7 was some 5 years ago. I found this link which is a drop in replacement for the Delphi midas.dll. And the source code is available and for free. Is this useful for Free Pascal? http://www.vglib.com/link-4.html Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] cross platform version of IsCharAlpha()
'JcfStringUtils.pas' very strange looking code. Please, what format is the file in? Thanks! ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry) - Original Message - From: "Graeme Geldenhuys" To: "FPC-Pascal users discussions" Sent: Friday, January 23, 2009 2:02 AM Subject: Re: [fpc-pascal] cross platform version of IsCharAlpha() On Mon, Jan 12, 2009 at 3:39 PM, Paul Ishenin wrote: Here in http://svn.freepascal.org/svn/lazarus/trunk/components/jcf2/Utils/JcfStringUtils.pas I used the same code :) Thanks Paul, I feel better already! I'm not alone. :-) Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal] Is there a way to search this list for info on CheckListBox ?
Is there a way to search this list for info on CheckListBox ? Thanks! ô¿ô V e r n WinXp sp2 , Delphi5, WebDwarf, Trellian WebPage, Lazarus-0.9.26-fpc-2.2.2-win32.exe, wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1 http://www.flickr.com/photos/vmars956/ Wanted: Dwarf Hibiscus (Orange/Rasberry)___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal