XProfan

Italia

Tim
Hannemann

Hallo Leute,
ich hab auch mal wieder eine Frage.
Und zwar ob es in Profan schon eingebaute FTP Befehle gibt oder ob ich dazu eine extra DLL oder Ini benötige.

Ich danke euch schonmal im vorraus.

MfG
Tim Hannemann

MfG Timää

------------

Betriebssysteme: Windows Vista

Profanversion: XProfan 11

20.05.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Thomas
Zielinski

Schau mal in der Aiuto von XProfan. Seit der Version 8 gibts glaube FTP und mit der neuen war glaube auch eine erweiterung wenn ich mich nicht irre. Und wenn dir die nicht gefallen, kannst auch im XPM schauen. Dort ist eine DLL dabei(Wie hieß die bloß?

) Und dann gabs auch mal den Download.inc .pcu oder sonst irgendwas.

Saluto Thomas

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

20.05.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Tim
Hannemann

Jo, hab mal nachgeguckt und gefunden was ich gesucht habe, thx Thomas

MfG Timää

------------

Betriebssysteme: Windows Vista

Profanversion: XProfan 11

20.05.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Tim
Hannemann

Sorry per Doppelpost aber ich wollt deswegen kein extra Thema aufmachen da es ja mit zu den FTP-Funktionen gehört, denke ich mal.

Also ich habe derzeit folgendes Problem:
Ich habe eine Prozedur FTP wo eine Eingabemaske aufgebaut wird und wo man dann seinen Server, Username und Password eingeben kann.
Klickt man auf den Button verbinden wird zu dem angegebenen Server verbunden und die File auf dem Server sollen in einer ListBox angezeigt werden.
Ich dachte es würde ganz einfach circa ChDir gehen (nachdem das aktuelle FTP verzeichnis ausgelesen wurde) und dann halt ganz einfach in die vorgefertigte ListBox reinkopieren und diese dann in meine kopieren.
Nur werden mir dann die File aus dem Verzeichnis angzeigt wo meine prf datei liegt.
Ich hoffe das mir wer helfen kann, hier der Code der Prozedur

Kompilieren Markieren Separieren

Proc FTP

    --declares-----------------------------------------------------------------------
    declare server$,user$,pass$, ftpdir$
    declare server&,user&,pass&,verbinden&,liste&
    declare ftp%
    UseFont Times New Roman,18,0,0,0,0
    Textcolor rgb(0,200,200),-1
    DrawText 10,15,Servername:
    DrawText 20,40,Username:
    DrawText 25,65,Password:
    server& = Create(EDIT,%HWnd,,100,10,100,25)
    user& = Create(EDIT,%HWnd,,100,35,100,25)
    pass& = Create(EDIT,%HWnd,,100,60,100,25)
    liste& = Create(SORTEDLISTBOX,%HWnd,,300,10,200,400)
    verbinden&=Create(BUTTON,%HWnd,Verbinden,100,90,100,25)
    clear ftp%

    Whilenot ftp%

        Waitinput

        If MenuItem(1)

            ende

        Elseif Getfocus(verbinden&)

            user$=GetText$(user&)
            pass$=GetText$(pass&)
            server$=GetText$(server&)
            FTP(Connect,user$,pass$,server$,21)
            ftpdir$=FTP(GetDir)
            ChDir ftpDir$
            AddFiles *.*
            MoveListToList(liste&)

        Endif

    Wend

Endproc