[Lazarus-es] manejo de TProcess y programas externos
Maikel Enrique Pernía Matos
reprepoli2mz en infomed.sld.cu
Mar Mayo 8 13:07:15 CEST 2012
Hola, como parte de la funcionalidad de una app que estoy
desarrollando utilizo el TProcess para comunicar mi app con programas
externos especificamente con split y cat de GNU para OS GNU/linux, en
el caso especifico del cat no me está funcionando, adjunto el codigo
para si alguien ve que me falta y desee ayudarme me envíe un e-mail
<code>
procedure unir_fichero(listaFicheros : TStrings; nombreFichero : String);
var
catApp : TProcess;
ficheros : String;
i : Integer;
begin
for i := 0 to cmbSources.Items.Count-1 do
begin
ficheros := ficheros + ' ' + listaFicheros.Strings[i];
end;
catApp := TProcess.Create(nil);
catApp.CommandLine := 'cat ' + ficheros + ' > ' + nombreFichero;
catApp.Options := catApp.Options + [poWaitOnExit];
catApp.Execute;
catApp.Free;
ShowMessage('El proceso a finalizado.');
end;
</code>
----------------------------------------------------------------
This message was sent using IMP, the Internet Messaging Program.
--
Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas
Infomed: http://www.sld.cu/
More information about the Lazarus-es
mailing list