FTP.HOST

@вумудщзук · Регистрация: 19.05.2010

Author24 — интернет-сервис помощи студентам

Delphi

1
2
3

  FTP.Host:='92.127.158.24';
  FTP.Username:='**********';
  FTP.Password:='***********';

На строчке FTP.Host... выдает ошибку: First chance exception at $7C81EB33. Exception class EAccessViolation with message 'Access violation at address 0047B41D in module 'Project1.exe'. Read of address 00000000'. Process Project1.exe (1080)

Добавлено через 36 секунд

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, idFTP, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  FTP: TidFTP;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  f: textfile;
  a, b: string;
begin
  AssignFile(f, 'index.html');
  Rewrite(f);
  Write(f, '<html><body>СЛОВО</body></html>');
  CloseFile(f);
  a:=extractfilepath(paramstr(0));
  b:=b+'index.html';
  FTP.Host:='92.127.158.24';
  FTP.Username:='**********';
  FTP.Password:='***********';
  FTP.Put(b, 'www/aues.ru/tender/', true);
  FTP.Disconnect;
end;
 
end.

	13.05.2011, 09:01