FTP Upload Fehlersuche?

[MaToBe]

Hallo ihr da draußen,

kann mir bitte mal einer erklären und verbessern, was an diesem Code falsch ist ?

Delphi-Quellcode:

function putfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
var
  hopen, hconnect: HINTERNET;
begin
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hconnect := InternetConnect(hopen, pchar(server), port, pchar(username), pchar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
  Result := FtpPutFile(hconnect, pchar(localfile), pchar(remotefile), FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
    ini:=TIniFile.create('MHLog.ini');
    ini.writestring(DatetoStr(Date),TimeToStr(Now),Memo1.Text);
    ini.free;

    putfile('ftp://[e-mail]', 'MaToBe', '***', 'MHLog.ini', '/MHLog.ini');

end;

[Die Muhkuh]

Mal abgesehen davon, dass Du nicht sagst, was das Problem ist:

Du solltest auf jeden Fall einen absoluten Pfad beim Erstellen der Ini-Datei angeben. Beim Runterladen natürlich auch.

[MaToBe]

oh sorry.

das problem ist ganz einfach das es keine fehlermeldung oder ähnliches gibt.

allerdings finde ich die Datei auch nicht auf meinem Webspace, wo sie eigentlich sein sollte =(

[Die Muhkuh]

Gibt es einen Grund, warum Du direkt über die API gehst und nicht die Indys verwendest?

Ansonsten lass Dir mal den letzten Fehler anzeigen (GetLastError)

[MaToBe]

um ehrlich zu sein bin ich ein ziemlicher Anfänger und hab den Code irgendwo hier gefunden und kopiert.

Dachte halt ich kann für die Schule mich schonma bisschen schlau machen und ausprobieren weil wir uns demnächst damit beschäftigen werden.

Das mit Gelasterroer versteh ich leider auch nicht =(

aber wie gesagt es gibt auch kein error, ich glaube eher er stellt die Verbindung nicht so richtig her ...

[smallsmoker]

das
und das ...

:D

€2: hehe http://www.instanticons.com/buddyico...y-Gonzales.gif

[Die Muhkuh]

Du hast da einen Suchlink um den normalen Link platziert ;)

[edit] Tatapa, war er wieder schneller [/edit]

[MaToBe]

sorry jetzt check ichs garnich mehr, was den für einen "Suchlink" ?

bei Google hab ich Indy gefunden, aber das is ja noch komplizierter ...

[Die Muhkuh]

Das mit Suchlink auf war auf den Smallsmoker bezogen.

Zu GetLastError:

Delphi-Quellcode:

if (not (putfile('ftp://[e-mail]', 'MaToBe', '***', 'MHLog.ini', '/MHLog.ini'); )) then
  ShowMessage(SysErrorMessage(GetLastError));

So müsste es gehen.

[MaToBe]

Als Error steht dann da

"Das Handel ist ungültig" ??