Hi,
Also, ich hab mein
FTP-Upload mit der folgenden Funktion erarbeitet:
Delphi-Quellcode:
uses wininet;
var upload,open: hinternet;
procedure winupload(updatei:pchar; zieldatei:pchar);
const
port=21;
begin
open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
upload := internetconnect(open,'ohost.de',port,'counter909','counter909pw',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
ftpputfile(upload,updatei,zieldatei,FTP_TRANSFER_TYPE_UNKNOWN,0);
end;
so, das funktioniert auch problemlos. Die Datei wird mit
winupload('C:\meinedatei.txt','test.txt');
erfolgreich hochgeladen.
Nun möchte ich aber gerne, dass ich nicht vorher den benutzernamen und das passwort im Compiler eingeben muss, sondern im Programm manuell. Deshalb hab ich mir das so vorgestellt:
internetconnect(open,'edit1.text',port,'edit2.text','edit43.text',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
nur leider kommt dann immer: inkompatible Typen: String und PasniChar
kann mir da einer ghelfen ?