XProfan

English

Tim
Hannemann

Hello people,
I Have too time again a question.
and of course whether it in Profan already installed FTP command gives or whether I moreover a extra DLL or Ini need.

I thanks you Schonmal in the advance.

MfG
Tim Hannemann

MfG Timää

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

Betriebssysteme: Windows Vista

Profanversion: XProfan 11

05/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Zielinski

look time in the Using XProfan. since the Version 8 Gibts faith FTP and the new was faith too a expansion if I me not crazy. And if you The not fallen, can also in the XPM look. there is a DLL thereby(How hieß The mere?

) And then gabs too time whom Download.inc .pcu or otherwise something.

Greeting Thomas

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

05/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Tim
Hannemann

Jo, Have time nachgeguckt and found I sought have, thx Thomas

MfG Timää

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

Betriebssysteme: Windows Vista

Profanversion: XProfan 11

05/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Tim
Hannemann

Sorry for Doppelpost but I want therefore no extra Topic open there it Yes with to the FTP-functions heard, think I time.

So I have presently the following trouble:
I have a procedure FTP where a Eingabemaske aufgebaut and is where one then its Server, Username and Password prompt can.
clicking one on the Button contact becomes the angegebenen Server joined and the Files on the Server should in a ListBox showing.
I thought it would integrally simply over ChDir weg (after the actually FTP directory read watts) and then hold integrally simply into vorgefertigte ListBox reinkopieren and these then in my copy.
only go me then The Files from the directory angzeigt where my prf File lying.
I hope the me who help can, here the code the procedure

Compile Mark Separation

Proc FTP

    --declares-----------------------------------------------------------------------
    declare server$,user$,pass$, ftpdir$
    declare server&,user&,pass&,verbinden&,liste&
    declare ftp%
    UseFont Times New novel,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,contact,100,90,100,25)
    clear ftp%

    Whilenot ftp%

        Waitinput

        If MenuItem(1)

            end

        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