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 ?

[Larsi]

Erstmal darfst du die Edits.Text nicht in diese String Zeichen kopieren und wenn dann immernoch der Fehler kommt wenn du die weg machst dann musst du Pchar(EditX.Text) nehmen das wandelt um.

[DeddyH]

Besser als Übergabeparameter an die Prozedur übergeben, sonst mischst Du Logik und Darstellung.

[Counter909]

ja perfekt...besten dank

mit der Umwandlung funktioniert das ja auch, wenn man mit einer Funktion den computernamen ausliest.

also vielen dank