search for: pchar

Displaying 7 results from an estimated 7 matches for "pchar".

Did you mean: char
2008 Jun 05
0
zFTPServer in wine
...ility to execute chown / chmod from within wine (to have uploaded files get the same permissions as their parent folder)... - Anybody knows how to do that? This is what I want to execute in zFTPServer from within wine: Code: // Change owner to that of parent directory Libc.system(PChar('chown `find "'+Path+'." -name "." -maxdepth 1 -printf "%U"` "'+Path+File+'"')); // Change group to that of parent directory Libc.system(PChar('chgrp `find "'+Path+'." -name "." -maxdepth...
2009 Apr 07
2
Running an R script from Delphi 7
...= sizeof (TStartupInfo); Startinfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES; Startinfo.wShowWindow := SW_HIDE; { Attempt to create the process. If successful wait for it to end} // CreateOK := CreateProcess(nil, nil, nil, nil, nil, CreateOK := CreateProcess(Nil, PChar('C:\Program Files\R\R-2.8.1\bin\R.exe ' + CommandLine), nil, nil, False, CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS, nil, nil, StartInfo, proc_info); if (CreateOK) then begin WaitForSingleObject (proc_info.hProcess, INFINITE); GetExitCodeProcess(p...
2008 Mar 06
4
dot matrix POS parallel printer problems
I have a application that writes to the LPT1 directly, in wine there is a lot of missing characters in the printout, in the console printing to /dev/lp0 works ok. I'm using puppy linux. Any help welcome. Thank you
2001 Feb 14
1
Problem with seek functions,
On Mon, 12 February 2001, OmegaDan wrote: [snip code] Hmm, weird.. that does work for me. I only had the trouble that ov_time_tell returned negative infinity after a ov_time_seek to 0 secs. This is my code: function TMainForm.ReadBuf(Buffer: PChar; Size: Longword; var Time: Single): Longword; var BytesRead, Change: Longword; begin BytesRead := 0; Time := ov_time_tell(vf^); if Time < 0 then // check against NAN, -INF Time := 0; repeat Change := ov_read(vf^, @Buffer[BytesRead], Size - BytesRead, 0, 2, 1, StreamNumber);...
2007 Jul 24
1
Custom kinit to find device by "label"
...r: ' + IntToStr(dev_minor)); EXIT; //exit w/ error end; dev_minor := dev_minor + 16; FileDescriptor := FpOpen(DEVICENAME, 0, 0); if FileDescriptor >= 0 then begin WriteLn('Opened device: ', DEVICENAME); ReadBytes := FpPRead(FileDescriptor, PChar(ActualFSLabel), Length(ActualFSLabel), $478); if (ReadBytes = Length(ActualFSLabel)) then begin if (ActualFSLabel = RootFSLabel) then begin Result := True; DeviceFound := True; end; end else WriteError('Reading from device: ' + DEVICENA...
2006 Dec 04
8
Calling R functions in Delphi
Hello All, We would like to call quantile() function from the R-package STATS in a Delphi program. If this is possible, could anyone provide us with an example? Thanks in advance. --Anna ----------------------------------------- Anna Belova Abt Associates Inc. 4800 Montgomery Ln, St 600 Bethesda, MD-20814 phone: 301-347-5304 fax: 301-652-7530 http://www.abtassociates.com/environment
2011 Aug 06
0
specifying 'root' for mboot.c32/syslinux
...32 33 // Try to open freeldr.ini 34 ret = ArcOpen(FreeldrPath, OpenReadOnly, FileId); 35 36 return ret; 37 } 38 39 BOOLEAN IniFileInitialize(VOID) 40 { 41 FILEINFORMATION FileInformation; 42 ULONG FileId; // File handle for freeldr.ini 43 PCHAR FreeLoaderIniFileData; 44 ULONG FreeLoaderIniFileSize, Count; 45 LONG ret; 46 BOOLEAN Success; 47 48 // 49 // Open freeldr.ini 50 // 51 ret = IniOpenIniFile(&FileId); 52 if (ret != ESUCCESS) 53 { 54 UiMessageBoxCritical("Err...