Explorer
Daee galera blzzzz? espero q sim :D
Seguinte to fazendo um FTP basico ai Cliente e Servdor, tipo ta quase pronto mais seguinte ele seria para manutenção via internet, queria saber se depois de conectado se eu poderia ver o explorer da pessoa em q eu estou conectado ou algo assim para poder fazer o serviço de manutenção, se isso for possivel qual seria + - o codigo? Desde de já Obrigado. :lol:
Leonardo Paz
ICQ: 311334031
Seguinte to fazendo um FTP basico ai Cliente e Servdor, tipo ta quase pronto mais seguinte ele seria para manutenção via internet, queria saber se depois de conectado se eu poderia ver o explorer da pessoa em q eu estou conectado ou algo assim para poder fazer o serviço de manutenção, se isso for possivel qual seria + - o codigo? Desde de já Obrigado. :lol:
Leonardo Paz
ICQ: 311334031
Leonardo Paz
Curtidas 0
Respostas
Euclides
16/02/2004
Caro Leonardo ,
Não sei se posso te ajudar muito mas eu estava em um projeto de ftp tambem e para listar o explorer do SITE eh esse :
PROCEDURE LISTARREMOTO ;
VAR
KFTPDIRECTORY : TFTPDIRECTORYLIST ;
KIND : INTEGER ;
BEGIN
MDIENTRADA.GRIDREMOTO.Clear;
IF MDIENTRADA.NMFTP1.FTPDIRECTORYLIST = NIL THEN
MDIENTRADA.NMFTP1.LIST ;
MDIENTRADA.TXTMUDADIRRET.TEXT := MDIENTRADA.NMFTP1.CURRENTDIR ;
KFTPDIRECTORY := MDIENTRADA.NMFTP1.FTPDirectoryList ;
FOR KIND := 0 TO (KFTPDirectory.name.Count - 1) DO
BEGIN
WITH MDIENTRADA.NMFTP1.FTPDirectoryList DO
BEGIN
MDIENTRADA.GRIDREMOTO.ITEMS.Add( NAME[KIND] + ´ - ´ +
SIZE[KIND] + ´ - ´ + MODIFDATE[KIND] + ´ - ´ + ATTRIBUTE[KIND]);
END;
END;
mas como eu disse era um ftp para site e usando o componente tnmftp....
espero ter ajudado
Não sei se posso te ajudar muito mas eu estava em um projeto de ftp tambem e para listar o explorer do SITE eh esse :
PROCEDURE LISTARREMOTO ;
VAR
KFTPDIRECTORY : TFTPDIRECTORYLIST ;
KIND : INTEGER ;
BEGIN
MDIENTRADA.GRIDREMOTO.Clear;
IF MDIENTRADA.NMFTP1.FTPDIRECTORYLIST = NIL THEN
MDIENTRADA.NMFTP1.LIST ;
MDIENTRADA.TXTMUDADIRRET.TEXT := MDIENTRADA.NMFTP1.CURRENTDIR ;
KFTPDIRECTORY := MDIENTRADA.NMFTP1.FTPDirectoryList ;
FOR KIND := 0 TO (KFTPDirectory.name.Count - 1) DO
BEGIN
WITH MDIENTRADA.NMFTP1.FTPDirectoryList DO
BEGIN
MDIENTRADA.GRIDREMOTO.ITEMS.Add( NAME[KIND] + ´ - ´ +
SIZE[KIND] + ´ - ´ + MODIFDATE[KIND] + ´ - ´ + ATTRIBUTE[KIND]);
END;
END;
mas como eu disse era um ftp para site e usando o componente tnmftp....
espero ter ajudado
GOSTEI 0