Compilateur en ligne

[microdevweb]

Bonjour,

Quelqu'un pourrait'il me donner plus d'info sur le compilateur en ligne....

Mon but est de pouvoir compiler par ligne de commande un Fichier.pb créer par le logiciel que je développe

Voila ce que je trouve dans la doc mais j'ai besoins de plus d'info

CLI> pbcompiler codesource.pb

Merci

[nico]

C'est pour un truc perso car tu n'as pas le droit de distribuer le compilateur.

[microdevweb]

Bonjour Nico,

Cela je m'en doutais un peux, mais c'est pour des possesseurs de PB

[Backup]

tu fais un editeur ?

[GallyHC]

Bonjour,

Petite recherche sur Google avec les mots clefs "compilateur purebasic ligne de commande" > http://www.purebasic.com/french/documen ... piler.html.

Cordialement,
GallyHC

[microdevweb]

Bonjour Dobro et GallyHC,

Je fais un éditeur de niveau pacman (pour le fun), GallyHC j'avais déjà trouver ses info mais elle sont plus ou moins vague

[Backup]

une petite recherche sur le form , t'aurai apporté sont lot de reponses

genre :

code exemple a adapter ... le principe est là

name_prg$=chemin ver ton fichier *.pb
parametre.S= parametre de compilation
destination$+nom_exe$ = chemin et nom du prg "exe"
path$ = chemin de travail
sortie$ = contient le retour d'infos envoyé par le compilo

Code : Tout sélectionner

;by dobro
compilateur = RunProgram(chemin_compiler_32$,  Chr(34)+ name_prg$ + Chr(34) + parametre.S + Chr(34)+destination$+nom_exe$+Chr(34) , path$, #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide)
	
	If compilateur <>0		
		While ProgramRunning(compilateur) ; ça compile .... ça compile			
			sortie$ + ReadProgramString(compilateur) +Chr(13)
			Delay(1)
		Wend
	EndIf
	If ProgramExitCode(compilateur) = 0
		For i=1 To Len(sortie$)
			extr$=StringField(sortie$,i,Chr(13))
			If FindString(LCase(extr$),"- feel the ..pure.. power -",1)<>0
				go=1  ; ici le compilo a fini le travail , tout c'est bien passé				
				Break ; on peut quitter l'algo
				Else
				go=0 ; ici le compilo a fini le travail , mais il y a des erreurs ..... 
                                ; elles sont ecrite dans la variable sortie$
			EndIf
		Next i 
		
; Epb

[microdevweb]

Merci Dobro,
Je teste ca

[Backup]

j'ai ajouté quelques commentaires pour bien comprendre ce qui se passe

[microdevweb]

Voila j'ai testé le code mais voila ce qui se passe

avec ce code ca passe mais la variable sortie$ renvoie ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

Code : Tout sélectionner

Global chemin_compiler_32$="C:\Program Files (x86)\PureBasic\Compilers\pbcompiler.exe"
 parametre$=Chr(34)+"C:\mesProgrames PB\Pacman créator\Build.pb"+Chr(34)+" /EXE  "+Chr(34)+"C:\mesProgrames PB\Pacman créator\Teste.exe"+Chr(34)
;parametre$=Chr(34)+"C:\mesProgrames PB\Pacman créator\Build.pb"+Chr(34)
compilateur = RunProgram(chemin_compiler_32$,parametre$,"C:\mesProgrames PB\Pacman créator\", #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide)
If compilateur <>0      
      While ProgramRunning(compilateur) ; ça compile .... ça compile         
            sortie$ + ReadProgramString(compilateur) +Chr(13)
            Delay(1)
      Wend
EndIf
RunProgram("C:\mesProgrames PB\Pacman créator\Teste.exe")
Debug  sortie$

[Backup]

tu compiles en unicode ? ou pas ?
retire le mode unicode de ton editeur ....

[microdevweb]

Merci Dobro

Ok sortie$ n'est plus ??????????????????

Ca plante mais surement une autre raison..... (comme je bidouille beaucoup actuellement pour un autre soucis)