Hi
I want to open and execute a command line application from a Delphi interface.
(FWTools ogr2ogr to be specific).
When I cd the command prompt to FWTools bin and use the following argument it
converts a dxf file to a PostgreSQL table perfectly.
ogr2ogr -f "PostgreSQL" PG:"host=localhost user=postgres dbname=E5R
password=Password" device.dxf -nln Device';
However when I use Delphi code that I found on the internet, the ogr2ogr opens
with an error .http://www.delphicorner.f9.co.uk/articles/wapi4.htm
Following is the code I am using.
I have attempted various alternates such as spacing and white space within the
path and argument string, with no success.
I could very well be misinterpreting the instructions.
Any help would be appreciated.
procedure TForm1.Button5Click(Sender: TObject);
var
StartInfo : TStartupInfo;
ProcInfo : TProcessInformation;
CreateOK : Boolean;
Wait : Boolean;
ProgramName : String;
begin
ProgramName := 'C:\Program Files (x86)\FWTools2.4.7\bin\ogr2ogr -f
"PostgreSQL" PG:"host=localhostuser=postgres dbname=E5R password=Password"
device.dxf -nln Device';
{ fill with known state }
FillChar(StartInfo,SizeOf(TStartupInfo),#0);
FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
StartInfo.cb := SizeOf(TStartupInfo);
CreateOK := CreateProcess(nil, PChar(ProgramName), nil, nil,False,
CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,
nil, nil, StartInfo, ProcInfo);
{ check to see if successful }
if CreateOK then
begin
//may or may not be needed. Usually wait for child processes
if Wait then
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end
else
begin
ShowMessage('Unable to run '+ProgramName);
end;
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject:
unsubscribe
