Parameter von aufgerufenem Programm zurückgeben?

[Zomtec]

Hallo Leute,

gibt's eine einfache Möglichkeit, Parameter von einem aufgerufenen Programm (beides PB-Programme) zurückzugeben?

Also vom Hauptrogramm Programm2 aufrufen und die Rückgabe in einen String bekommen z. B. so in der Art:

Code: Alles auswählen

If RunProgram("Programm2", Parameter$, "") : endif
rueckgabe$=???

[benpicco]

Naja, du kannst mit End exitcodes angeben, z.b. end 123, damit jedoch ganze strings zu übergeben ist aber problematisch, ich weiß nicht ob´s geht, aber villeicht kannst du ja den Pointer auf einen string übergeben(mit @deinstring.s), den string kannst du dann ganz einfach mit PeekS(pPointerzumString) auslesen.
edit:
Ich hab mal etwas rumprobiert, aber hiermit hat´s schonmal micht funktioniert...
test.exe:

Code: Alles auswählen

param$=ProgramParameter()
*pMem=GlobalAlloc_(#GMEM_SHARE,Len(param$)+1)
CopyMemory(@param$,*pMem,Len(param$))
End *pMem

anderesprogramm:

Code: Alles auswählen

NewList StartupInfo.STARTUPINFO()
NewList ProcInfo.PROCESS_INFORMATION()
AddElement(StartupInfo())
AddElement(ProcInfo())

If CreateProcess_("test.exe","test.exe testparameter",0,0,0,0,0,".",@StartupInfo(),@ProcInfo())
  Delay(200)
  code.l
  GetExitCodeProcess_(ProcInfo()\hProcess,@code)
  Debug GlobalSize_(code)
  Debug PeekS(code)
  GlobalFree_(code)
EndIf

Mir kommt´s fast so vor, als gibt PB den speicher wieder frei, wen man end aufruft, dabei hab ich ihn doch extra global angefordert...

[Macros]

Aber man konnte den String doch in den Speicher schreiben (wenn er kurz ist),
mit Peekl() auslesen, das als Exitcode setzen, dann beim Anderen Programm
wieder in Speicher und mit PeekS() auslesen.

[Andre]

In PB v4 gibts die Process Lib dafür.

Da sollte das z.B. auch über Umgebungsvariablen gehen.

[Zomtec]

Danke für eure Antworten. Habe jetzt was in der PBOSL gefunden, das meiner gesuchten Funktion entsprechen könnte:

PBOSL_AllocateMemoryGlobal(Name.s, Size.l)

Parameters:
Name.s = Name des Speciherbereichs als String, Handle
Size.l = Größe des Speicherbereichs in Bytes

Return Values: The memory-adress

Description: Gibt den Zeiger auf den Speicherbereich zurück (wie in PB-Funktion Allocatememory)

Habe es mangels Zeit bisher leider noch nicht testen können. Der Exitcode wird doch an die Windowsvariable %errorlevel% übergeben. Lässt sich diese so einfach von einem Windowsprogramm auslesen?

[benpicco]

Umgebungsvariablen kannst du ganz einfach mit

Code: Alles auswählen

variable.s="SystemDrive"
Inhalt.s=Space(#MAX_PATH)
GetEnvironmentVariable_(variable,@Inhalt,#MAX_PATH)
Debug Inhalt

abfragen.

[ts-soft]

Aber mit dem ERRORLEVEL wird das in PB3.94 wahrscheinlich nicht funzen.
In PB4 wird sowas aber von Hause aus unterstützt. Auch das setzen. Wenn
man seine eigenen Variablen vor RunProgramm() setzt, sind diese im
anderem Programm auch ermittelbar.

[benpicco]

Wenn die beiden Programme miteinander komunizieren sollen, ist es villeicht einfacher und schneller die nachrichten übers (lokale) Netzwerk zu schicken, das eine Programm ist dan der Client, das andere der Server.