Uploade fil via Indy FTP i Delphi - Fejler (SOCKET ERROR # 10053)

Du skriver ikke noget om hvilken linie der giver fejlen

Når jeg har skullet uploade noget med Indy så har jeg altid skullet bruge .Put(AbsolutNavn, Navn)
Altså først hele filnavnet på den lokale fil og dernæst kun filnavnet som der bliver gemt i på serveren.
Husk også at tage højde for om det er tekst eller binære filer.
(binære filer overført i tekstmode er noget hø)

UPS .. Da var jeg lige lovlig hurtig :-)

Jeg får fejlen ved denne linje :

IdFTP1.Put('Test.txt'); <- FEJLEN OPSTÅR HER VED PUT COMMANDOEN

hugopedersen -> Det har jeg lige prøvet det virker heller ikke.

Har du mulighed for at lave en test konto vi kan prøve med?

Jeg opretter en test FTP server og skriver når den er klar :-)

Vil meget gerne have din mail adresse så jeg kan sende dig min IP for den har jeg ikke lyst til at skrive her :-)

Så er der en TEST FTP Server klar :-)

Har sendt dig en mail Kroning.

Har prøvet med denne kode, som du kan afprøve, den virker på mit ftp site

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, IdFTPCommon;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    IdFTP1.Host        := '';
    IdFTP1.Username    := '';
    IdFTP1.Password    := '';
    IdFTP1.ReadTimeout  := 20000; {50000}
    IdFTP1.TransferType := ftBinary;
    try
        Form1.IdFTP1.Connect;
        try
            Form1.IDFTP1.Put( 'MinFil.txt','MinFil.txt',false);
            Form1.IdFTP1.DisConnect;
        except
            on E: Exception do begin
              Application.MessageBox(PChar('Der er opstået en fejl i forbindelse FTP.Put Fejl: ' + E.Message), 'Fejl', MB_OK or MB_ICONERROR)
            end;

        end;
    except
        on E: Exception do begin
          Application.MessageBox(PChar('Der er opstået en fejl i forbindelse FTP.Open Fejl: ' + E.Message), 'Fejl', MB_OK or MB_ICONERROR)
        end;
    end;

end;

end.

Jeg har prøvet med de oplysninger du har sendt og det virker fint i f.eks. FileZilla FTP klient men med Indy virker Put ikke, jeg kan bruge den samme kode til at forbinde til min egen server uden problemer, jeg har ingen forklaring ?

Hej Kroning

Jeg har nu testet dit eksempel og har test mit eget eksempel igen, efter at jeg midlertidigt har slået min windows firewall fra, og sjovt nok så virker det nu :-)

Smid et svar, du fik mig på rette vej med din sidste post :-)

Takker.

Måske er grunden at der ikke er skrive rettigheder til den folder der uploades til, en af mine ftp sites som er hos meebox.net er der en folder public_ftp hvor man kan uploade

Svar

Prøv den her:
FTP.Put(ExtractFilePath(Application.Exename) + 'Test.exe', 'Test.exe');

Det kan være den skal have hele genvejen til filen.