FTP-upload mit wininet

[Counter909]

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 ?