stShell how to get this working? (wodSSHServer)
Could Someone please assist with getting the Delphi demo to run? The instructions say to use object.Service(Index) but I think I'm doing it incorrectly. This code compiles but does not work, so I assume I'm missing something.
procedure TForm1.wodSSHD1_ServiceRequest(ASender: TObject;
const User: ISSHUser; ServiceIndex: Integer; var ServiceType: TOleEnum;
var ServicePath: WideString; var Action: TOleEnum);
begin
ServiceType := stShell;
end;
procedure TForm1.wodSSHD1_ServiceStart(ASender: TObject;
const User: ISSHUser; ServiceIndex: Integer; ServiceType: TOleEnum;
const ServiceName: WideString);
begin
// this is apparently incorrect
User.Service [1];
User.Send ('connected' + #13#10 + #13#10,'');
end;
Complete thread:
- stShell how to get this working? - Bill Sands, 2010-02-25, 04:28
- Re: stShell how to get this working? - wodDamir, 2010-02-25, 08:48
- Re: stShell how to get this working? - Bill Sands, 2010-02-25, 18:38
- Re: stShell how to get this working? - woddrazen, 2010-02-25, 18:45
- Re: stShell how to get this working? - Bill Sands, 2010-02-25, 18:38
- Re: stShell how to get this working? - wodDamir, 2010-02-25, 08:48