1 2 3 4 5 6 7 8
| ini = new TIniFile(IncludeTrailingPathDelimiter(ExtractFileDir(ExpandFileName(ParamStr(0))))+"Config.ini");
FtpClient1->UserName=ini->ReadString("FTP","user","");
FtpClient1->PassWord=ini->ReadString("FTP","mdp","");
FtpClient1->HostName=ini->ReadString("FTP","adresseServeur","");
FtpClient1->LocalFileName=Edit1->Text;// Chemin complet du fichier à uploader
//FtpClient1->HostDirName="./";//racine du disque dans ce cas pour le dépos
FtpClient1->HostFileName=ExtractFileName(CheminFichier->Text);
FtpClient1->Transmit();// On transfère |
Partager