antp.be forum

Code: Select all

program RunExternalProgramTest ;

const
  sRunExternalProgram = 'RunExternalProgram importer';

var
	gsBuscado, gsYear: string;
	gbRes: Boolean;
//------------------------------------------------------------------------------------
function findMovieFA(m: string; idFA: string; buscado: string; year: string; precision: string; mostrarAvisos: Boolean): Boolean;
var

command, parameters: string;
n: Integer;
Count: Integer;//debug
fIntercambio, fInicio: string;
aList: TStringList;
bNoFirstTime: Boolean;

begin
	fIntercambio := dirScripts + '_temp.del';
	fInicio := dirScripts + '_inicio.del';
	command := dirScripts + 'findMovieFAIMDb.vbs';
	if (m <> '') then//if m is empty, check DLL version
		parameters := '"' + m + '" ' + year;
	DeleteFile(fIntercambio);
	DeleteFile(fInicio);
	//check for external program
	if (FileExists(command) = False) then
	begin
		ShowError(sRunExternalProgram + ' Error. File not found: ' + command);
		exit;
	end;

	//Check External program Version
  bNoFirstTime := True;//TODO Set a Option or Parameter
	if (bNoFirstTime = False) then
	begin
		bNoFirstTime := True;
		//Do something, like run without parameteres for get Version
		Launch(command, '');
	end;

	Launch(command, parameters);
	// wait a bit
	Sleep(300);
	//Loop, see break comments
	while (True) do
	begin
		if (FileExists(fInicio) = False) then
			exit;//fInicio Dont exist
			
 		//OK continue
		if FileExists(fIntercambio) then
		begin
			DeleteFile(fInicio);
			aList := TStringList.Create;
			aList.LoadFromFile(fIntercambio);

			n := aList.Count;
			if aList.Count > 0 then
			begin
				parameters := aList.Text;
				for n := 0 to (aList.Count - 1) do
				begin
					parameters := aList.GetString(n);
					Count := Length(parameters);
				end;
			end;

			//check number of returned lines
			if aList.Count = 2 then
			begin
				//show controled error message from external program
				ShowError(parameters);
				//1.- External program not instaled
				//2.- No results for serarch string
				//3.- Others
				break;//while
			end;

			if aList.Count = 1 then
			//Versión
			begin
				ShowInformation('DLL Version: '+ parameters);
				break;//while
			end;

			if aList.Count <> 45 then
			begin
				ShowError('Error: ' + aList.Text);
				//Error por ¿otras causas?
				//no se pudo escribir el archivo (se ejecuta desde un medio de solo lectura)
				break;//while
			end;
			
			//All OK here we go
			//now you have aList array with results
			//Call your Main routine here
			//YourMainRoutine(aList);
			//To Work!!
			//To Work!!
			//To Work!!
				ShowInformation(aList.Text);

			//free memory
			aList.Free;
			//Finally del exchange file
			DeleteFile(fIntercambio);
			result := True;
			break;//while
		end;//FileExists(fIntercambio)
		if (result = False) then//Loop waiting external program
    		Sleep(1000);
		//Yo can add a Counter Count := Count + 1;
	end;//while
end;//function

//------------------------------------------------------------------------------------

begin

	gsBuscado := GetField(fieldURL);
	if Length(gsBuscado) > 0 then
	begin
		findMovieFA(gsBuscado, '', '', '', '', False);
		exit;
	end;
	gsBuscado := GetField(fieldTranslatedTitle);
	if gsBuscado = '' then
	begin
		gsBuscado := GetField(fieldOriginalTitle);
		if (GetOption('AutoSelect') = 0) or (gsBuscado = '') then
		begin
			gbRes := Input(sRunExternalProgram, 'Pelicula:', gsBuscado);
			if (gbRes = False) then
				exit;
		end;
	end;
	gsYear := GetField(fieldYear);
	findMovieFA(gsBuscado, '', '', gsYear, '', False);
end.