PureBoard

Code: Alles auswählen

vusing System;
using WinSCP;
 
class Example
{
    public static int Main()
    {
        try
        {
            // Setup session options
            SessionOptions sessionOptions = new SessionOptions {
                Protocol = Protocol.Sftp,
                HostName = "example.com",
                UserName = "user",
                Password = "mypassword",
                SshHostKeyFingerprint = "ssh-rsa 2048 xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx"
            };
 
            using (Session session = new Session())
            {
                // Connect
                session.Open(sessionOptions);
 
                // Upload files
                TransferOptions transferOptions = new TransferOptions();
                transferOptions.TransferMode = TransferMode.Binary;
 
                TransferOperationResult transferResult;
                transferResult = session.PutFiles(@"d:\toupload\*", "/home/user/", false, transferOptions);
 
                // Throw on any error
                transferResult.Check();
 
                // Print results
                foreach (TransferEventArgs transfer in transferResult.Transfers)
                {
                    Console.WriteLine("Upload of {0} succeeded", transfer.FileName);
                }
            }
 
            return 0;
        }
        catch (Exception e)
        {
            Console.WriteLine("Error: {0}", e);
            return 1;
        }
    }
}

Code: Alles auswählen

IncludePath "DeinPfadZu\COMatePLUS\"
XIncludeFile "COMatePLUS.pbi"

Define session.COMateObject
Define sessionOptions.COMateObject

sessionOptions = Comate_CreateObject("WinSCP.SessionOptions")

If sessionOptions
	
	sessionOptions\SetProperty("Protocol = Protocol_Sftp")
	sessionOptions\SetProperty("HostName = 'example.com'")
	sessionOptions\SetProperty("UserName = 'user'")
	sessionOptions\SetProperty("Password = 'mypassword'")
	sessionOptions\SetProperty("SshHostKeyFingerprint = 'ssh-rsa 2048 xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx'")
	
	session = Comate_CreateObject("WinSCP.Session")
	
	If session
		
		; Connect
		session\Invoke("Open(" + Str(sessionOptions) + " As COMateObject)")
		
		; ...
		; für den Code, der hier stand habe ich momentan keine Muße
		; ...
		
		; Disconnect, clean up
		session\Invoke("Dispose")
		
		session\Release()
		
	Else
		
		Debug "!session"
		
	EndIf
	
	sessionOptions\Release()
	
Else
	
	Debug "!sessionOptions"
	
EndIf