Discussion :

[K.othmane]

Yop
j'utilisais le composants FTPSRV et FTPSRVC de chez ICS ( http://www.overbyte.be/frame_index.html ) .
avec une form ca marche tres bien mais quand j'essaye de faire la meme chose abec une application console ca me dit :[b] Project1.exe raised exception class EACCESSVIOLATION with message access violation at adresse ...[b/]
voila le code :

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,
FtpSrv,
FtpSrvC;

procedure FtpServer1Authenticate(Sender: TObject;
Client: TFtpCtrlSocket; UserName, Password: TFtpString;
var Authenticated: Boolean);
begin
if password= '1234'then
begin
Authenticated := true;
end
else
Authenticated := FALSE;
end;

var
ftpserver1 : Tftpserver ;
begin
tftpserver.create(ftpserver1);
ftpserver1.port:='21';
ftpserver1.start;

end.

et ca marche parfaitement quand c une application fenetre.
Merci

[K.othmane]

UP !
svp j'en ai vraiment besoin pour ce soir .

[adrien357]

Je ne sais pas si ca resoudra ton pbm, mais la dernière fois j'avais créer une classe dérivée de celle d'ICS, qui était devenue indépendante des form...

[Morvan Mikael]

Ta méthode pour créer ton objet n'est pas la bonne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ftpserver1:= tftpserver.create(nil);
ftpserver1.port:='21';
ftpserver1.start;

et à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ftpserver1.Free;

A+

[K.othmane]

Yop
Merci a toi ca marche