xsharp.eu

Code: Select all

error XS0246: The type or namespace name 'GetHeader' could not be found (are you missing a using directive or an assembly reference?)	261,23	ISAPIDefine.prg	VOInternetServer

Code: Select all

	member pGetHeader as GetHeader ptr

Code: Select all

FUNCTION Start( ) AS VOID
	System.Console.WriteLine("Hello x#!")

	VAR test := CgiTest{} 
	test:CallCgi()
RETURN

CLASS CgiTest
PRIVATE _phpOutput AS STRING
METHOD CallCgi() AS VOID   
    TRY
        VAR  p := System.Diagnostics.Process{}
        p:StartInfo:FileName := "f:Tempphp-7.4php-cgi.exe"  //Replace with your file
        p:StartInfo:CreateNoWindow := TRUE
        p:StartInfo:UseShellExecute := FALSE       
        p:StartInfo:RedirectStandardInput := TRUE
        p:StartInfo:RedirectStandardOutput := TRUE   
        p:StartInfo:RedirectStandardError  := TRUE  
        p:StartInfo:StandardOutputEncoding := System.Text.Encoding.UTF8
        
        VAR evList := Dictionary<STRING, STRING>{}
        
        p:StartInfo:EnvironmentVariables:Add("SCRIPT_FILENAME", "f:Tempphp-7.4WikiDoku.php")  //Change an add you variables
        p:OutputDataReceived += phpOutputReceived  
        p:Start()
        
        p:BeginOutputReadLine()  
        
        IF (!p:WaitForExit(10000))
           p:Kill()
        ENDIF                                    
        
                 
        VAR err := p:StandardError:ReadToEnd()  
        
        
        Console.WriteLine("received: "+SELF:_phpOutput)
        Console.WriteLine("error: "+err)
    CATCH ex AS Exception
        Console.WriteLine(ex:ToString())
    END TRY
RETURN         
METHOD phpOutputReceived(sender AS OBJECT , e AS System.Diagnostics.DataReceivedEventArgs) AS VOID
    SELF:_phpOutput += e:Data+e"rn"
RETURN   
END CLASS