1. Home

Product groups

Support

stShell how to get this working? - WeOnlyDo Discussion board

stShell how to get this working? (wodSSHServer)

by Bill Sands, Thursday, February 25, 2010, 04:28 (5174 days ago)

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;

locked
3518 views

Complete thread:

 

The wodCrypt product is great and we appreciate your effort to add support for UNIX Crypt.

William Ruf
Siemens Information and Communication Networks

Thank you very much for the rapid responses. I was a little nervous about dealing with a company that is on a different continent from me. You have proven my concerns to be unfounded.

Robert Pacheco
Surebridge, Inc.

Fantastic product by the way, it has helped us tremendously on a daily basis. Keep up the good work.

Ben Lewis
Waterson Consulting Ltd.

Don't be fooled by the cost, it's value and quality far exceeds the price being charged!

Ian D. Mead, author of UltraEdit-32
IDM Computer Solutions

I've heard that you are amazing with your replies coming back so quickly - and now I've seen the speed in which you reply first hand.

Andrew Narracott
Sun Computer Consultancy

Fantastic product by the way, it has helped us tremendously on a daily basis. Keep up the good work.

Ben Lewis
Waterson Consulting Ltd.

Thank you very much for the rapid responses. I was a little nervous about dealing with a company that is on a different continent from me. You have proven my concerns to be unfounded.

Robert Pacheco
Surebridge, Inc.

Many thanks for your excellent support service. I can see why you have a long list of excellent testimonials on your website.

Martyn Walker
Batmore Technolgies

Don't be fooled by the cost, it's value and quality far exceeds the price being charged!

Ian D. Mead, author of UltraEdit-32
IDM Computer Solutions

I really like these products - they are consistently first rate!

David Witten
WWR Development, Inc.