E2250 There is no overloaded version of 'Get' that can be called with these arguments

[demon-sheff]

Доброе время суток! Я только начинаю программировать так что сильно не пинайте если эта тема уже затрагивалась. Возникла проблема при создании обновлений программы с ftp. Делаю следующим образом:

procedure TForm1.Timer2Timer(Sender: TObject);
Var
    version:WideString;
    ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
    try
      IdFTP1.Host:='10.10.100.200'; // ftp адрес сервера
      IdFTP1.Port:=21;
      IdFTP1.Username:='admin'; //логин
      IdFTP1.Password:='admin';    //Пароль
      IdFTP1.Passive:=true;
      IdFTP1.Connect; // .Connect(true);
      AssErt(IdFTP1.Connected);
     // IdFTP1.ChangeDir('/');// Установить папку на сервере
      IdFTP1.Get('Soft/update/version.ini',true);//Файл Откуда-Куда
      try
      version:=IdFTP1.Get('Soft/update/version.ini');
      if version=Label6.Caption then
      begin
        Application.MessageBox('У Вас самая новая версия программы','Внимание',MB_OK);
      end
      else
      begin
         IdFTP1.Get('Soft/update/Install.exe','c:\Install.exe',true);//Файл Откуда-Куда
      end;
    except
    on e:Exception do

    end;
end;
finally
      ms.Free; IdFTP1.Free;
    end;
  except
  ShowMessage  (‘Неудачная попытка приема файла с сервера’);
  end;
end;

Может что делаю не так? Пожскажите в чем ошибка?

[Stilet]

IdFTP1.Get('Soft/update/version.ini',true);//Файл Откуда-Куда

Куда? вместо true там должен стоять путь "куда"

[demon-sheff]

Даже если этот код закрыть

// IdFTP1.ChangeDir('/');// Установить папку на сервере
     // IdFTP1.Get('Soft/update/version.ini',true);//Файл Откуда-Куда
      try
      version:=IdFTP1.Get('Soft/update/version.ini');

ошибка где-то здесь выделяет именно version:=IdFTP1.Get('Soft/update/version.ini');

[demon-sheff]

Попытался обойти это, получилось так:

procedure TForm1.SpeedButton3Click(Sender: TObject);
Var
    version:WideString;
    ms:TMemoryStream;
    f : TextFile;
    buf: String [80]; // буфер для чтения из файла
begin
  ms:=TMemoryStream.Create;
    try
    try
      IdFTP1.Host:='10.10.100.200'; // ftp адрес сервера
      IdFTP1.Port:=21;
     IdFTP1.Username:='admin'; //логин
      IdFTP1.Password:='admin';    //Пароль
      IdFTP1.Passive:=true;
      IdFTP1.Connect;
      AssErt(IdFTP1.Connected);
     IdFTP1.ChangeDir('/');// Установить папку на сервере
    IdFTP1.Get('Soft/update/version.txt','C:\version.txt',true);//Файл Откуда-Куда
       AssignFile(f, 'C:\version.txt');
       FileMode:=0;
      {$I-}Reset(f){$I+};
       if IOResult =0 then
          while not EOF(f) do begin
          readln(f, buf); // прочитать строку из файла
          Memo2.Lines.Add(buf); // добавить строку в поле Memo2
        end;
        finally
        CloseFile(f); // закрыть файл
        end;
      version:=(buf);                              
      if version=Label6.Caption then
      begin
        Application.MessageBox('Вы используете последнюю версию программы!','Внимание',MB_OK);
      end
      else
      begin
      If not IdFTP1.Connected then IdFTP1.Connect;
         IdFTP1.Get('Soft/update/Install.exe','c:\Install.exe',true);//Файл Откуда-Куда
      end;
      //end;
finally
      ms.Free; IdFTP1.Disconnect;
    end;
  //except
  ShowMessage  ('Неудачная попытка приема файла с сервера');
  end;

Сразу говорю, что файл существует C:\version.txt и не только для чтения, но теперь проблема встала в следующем выдает ошибку I/O error 103 почитал говорят что связано с CloseFile(f); по крайней мере туда возвращает после ошибки. Что делать уже всю голову сломал

[Stilet]

procedure TForm1.Timer2Timer(Sender: TObject);
Var
    version:WideString;
    ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
    try
      IdFTP1.Host:='10.10.100.200'; // ftp адрес сервера
      IdFTP1.Port:=21;
      IdFTP1.Username:='admin'; //логин
      IdFTP1.Password:='admin';    //Пароль
      IdFTP1.Passive:=true;
      IdFTP1.Connect; // .Connect(true);
      AssErt(IdFTP1.Connected);
     // IdFTP1.ChangeDir('/');// Установить папку на сервере
      IdFTP1.Get('Soft/update/version.ini',true);//Файл Откуда-Куда
      try
      version:=IdFTP1.Get('Soft/update/version.ini');
      if version=Label6.Caption then
      begin
        Application.MessageBox('У Вас самая новая версия программы','Внимание',MB_OK);
      end
      else
      begin
         IdFTP1.Get('Soft/update/version.txt','C:\version.txt',true);//Файл Откуда-Куда
      end;
    except
    on e:Exception do

    end;
end;
finally
      ms.Free; IdFTP1.Free;
    end;
  except
  ShowMessage  (‘Неудачная попытка приема файла с сервера’);
  end;
end;

Все. Больше ничего не нужно.

[demon-sheff]

Я сделал так:

procedure TForm1.SpeedButton3Click(Sender: TObject);
Var
    version,ver:WideString;
    ms:TMemoryStream;
    zap:byte;
begin
      IdFTP1.Host:='10.10.100.200'; // ftp адрес сервера
      IdFTP1.Port:=21;
     IdFTP1.Username:='admin'; //логин
      IdFTP1.Password:='admin';    //Пароль
      IdFTP1.Passive:=true;
     if IdFTP1.Connected then
IdFTP1.Disconnect
else
try
      IdFTP1.Connect;
      except
      on E:Exception do
      ShowMessage('Ошибка подключения: '+E.Message);
      end;
      if IdFTP1.Connected then
       try
     IdFTP1.ChangeDir('/');// Установить папку на сервере
    IdFTP1.Get('Soft/update/version.ini','C:/Soft/log/version.ini',true);//Файл Откуда-Куда
     IdFTP1.Get('Soft/update/Install.exe','C:/Soft/log/Install.exe',true);//Файл Откуда-Куда
     Memo2.Lines.LoadFromFile('C:/Soft/log/version.ini');
      version:=Memo2.Text;
      ver:= Edit2.Text;
    except
    on E:Exception do
      if version<>ver then
      begin
        Application.MessageBox('Вы используете последнюю версию программы!','Внимание',MB_OK);
      end
      else
      begin
      zap:=WinExec('C:/Soft/log/Install.exe',SW_Restore);
         end;
end;
      ms.Free; IdFTP1.Disconnect;
    end;

так все заработало, только вот не могу сравнить значения version и ver для дальнейшего запуска обновленного инсталяционного пакета

[demon-sheff]

Все тему можно закрывать. Разобрался. Спасибо!