ftp ye yazı yazdırma.

[maqro]

s.a

ftp deki bir txt ye nasıl yazı yazdırabilirim. mesela memo daki bir stringi.

mıhabbetle...

[lazio]

Bit txt ye yazıp ftp deki dosyanın üstüne yazabilirsin. Tabi ekleme işlemi olacaksa önce ftp dekini çekip okumak lazım..

[maqro]

hocam bir yol gösterebilirmisin nasıl yaparım. yada bana döküman kaynak önerebilirmisin.

[lazio]

Yol şu;
Ftp ye bağlanacaksın (:ara Indy), ordaki istediğin dosyayı local ine çekeceksin. Dosyayı açıp (ReWrite, Apped vs mod larda) işlemlerini yapacaksın. Tekrar ftp ye bağlanıp dosyayı göndereceksin (Ftp de var olan dosyaının üstüne yazacaksın).

Ftp ile ilgili örnek muhtemelen Indy nin demo ları arasında vardır..

[Trial_Cooder]

Kod: Tümünü seç

uses kısmına ShellApi ve UrlMon unitlerini ekleyin.

function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SourceString, DestinationString: string;
begin
SourceString := 'http://members.lycos.co.cuk/mcrapiermc/index.html';
DestinationString := 'c:\index.html';

if DownLoadInternetFile(SourceString, DestinationString) then
  ShellExecute(Application.Handle, PChar('Open'), PChar(DestinationString), PChar(''), nil, SW_NORMAL)
else
  MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);
end;

^Bu İndirme Kodu^

Buda Ftp'ye Upload Kodu

Kod: Tümünü seç

uses : Wininet

var
  Form1: TForm1;
   intconn,intopen: hinternet;
  Host: String;
  User: String;
  Pass: String;


procedure UploadMyFile (File2Upload:pchar; targetfilename:pchar);
const
TheFtpPort = 21;
begin
intopen := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
intconn := internetconnect(intopen, PChar(Host),TheFtpPort,PChar(User),PChar(Pass),INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
ftpputfile(intconn,File2Upload,targetfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(intconn);
internetclosehandle(intopen);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
uploadmyfile('önemliler.txt', 'intex.html');
end;

end.

formcreate ye

  Host := Edit1.Text;
  User := Edit2.Text;
  Pass := Edit3.Text;

Anlatım : Txt'yi Download İle İndiriyorsun Ve Onu Memo.Lines.LoadFromFile('Rapier.txt') İle Memoya Alıyorsun, Ve Eklemek İstediğini Memo.Lines.Add(Edit.Text) İle Ekliyorsun Ve Memo.Lines.SaveToFile('Rapier.txt') İlede Txt'yi Güncellemiş Oluyorsun, Sonra Bunu Ftp Upload Yöntemi İle Upload Ediyorsun Bitiyor
Writed By Trial_Cooder