Content Comparison

var
  ftp;
  s:String;

function validoi(avain);
begin
  if avain = '1a:1b:23:4e:3e:19:63:ce:3d:17:01:ed:bf:9b:68:bd' then // serverin avain
    result := 'OK'
   else
     result := '';
end;

begin
  ftp  := LuoSFtp('sftp.firma.com,'username','password',0, 'validoi'); // 0 = oletusporttinumero, anna muu arvo jos sftp -palvelin on poikkeavassa portissa
  // validointirutiinin nimi annetaan parametrina.
  if assigned(ftp) then
  begin
    lista := tstringlist.create;
    PutSFtp(ftp,'c:\temp\koe.txt','koe.txt');
    lista.text := ListaaSFtp(ftp, '.', false); // listaasftp palauttaa aina hakemiston sisällön, ei voi valita esim *.txt
    showmessage(lista.text);
    for i:= 0 to lista.count -1 do
    begin
      s := uppercase(l ista.strings[i] );
      if copy(s,1,7) = 'SISAAN_' then
        showmessage(s);
    end;
    s := ListaaSFtp(ftp, 'alihakemisto', false);
    showmessage(s);
    GetSFtp(ftp,'koe.txt','koe1.txt');
    suljesftp(ftp);
    lista.free;
  end;
end;