Forum: Netzwerke
by LuCSteR,
14. Aug 2008
Das funktioniert, sicherlich auch nur weil die LoginDaten per parameter übergeben werden. Aber es funktioniert ^^
if FtpGetFile(IPEdit.Text, PortEdit.Text, '/d:/text.txt', 'd:\test.txt', UserEdit.Text, PassEdit.Text)
then Log.Lines.Add('GET FILE');
Trotzdem muss es doch möglich sein, sich einzuloggen. Ein paar prozeduren durchlaufen zu lassen und sich dann wieder vom server...
Forum: Netzwerke
by LuCSteR,
14. Aug 2008
funtioniert leider nicht :( diese beiden funktionen sind ja auch nich in der klasse TTFTPSend vorhanden.
da gibts nur diese hier:
constructor Create;
destructor Destroy; override;
function SendFile(const Filename: string): Boolean;
function RecvFile(const Filename: string): Boolean;
function WaitForRequest(var Req: word; var filename: string): Boolean;
procedure ReplyError(Error:...
Forum: Netzwerke
by LuCSteR,
14. Aug 2008
mmmh so wie ich das sehe wird durch den constructor create vll ein connect durchgeführt? obwohl es recht seltsam wäre.
in der klasse TFTPSend (die ich nicht benutzt habe) gibt es noch function login, function logout. nur leider beider ohne paramterübergabe. geben nur nen boolschen wert zurück.
Forum: Netzwerke
by LuCSteR,
14. Aug 2008
mmh der Coding-Style von Borland ist ja erstmal kein großes Hindernis :)
Hier synapse Hilfe gibts alles was man wissen kann über synapse. ich habe mich schon umgeschaut, allerdings finde ich keinen connect-befehl. es gibt ein bsp-programm, wenn man die libary runterlädt. da gibts auch kein connect-befehl. mmh. zum möuse melken :)
Forum: Netzwerke
by LuCSteR,
14. Aug 2008
Hey,
habe mich in Synapse eingearbeitet und komme an sich mit der ganzen Thematik ganz gut klar. Nur als ich heute auf mehreren wegen versucht habe eine connection herzustellen traten fehler auf.
procedure TForm1.Button1Click(Sender: TObject);
begin
// Create TFTPClient
TFTPClient := TTFTPSend.Create;
Log.Lines.Add('TFTPClient created');