| |
| |
|
ByteAttack | Unter: [...]  gibt es eine Unit, um mit nur einem Befehl, denn Inhalt einer FTP-Verzeichnissliste in einem ListView anzuzeigen.
Das besondere dabei, mann muss sich selbt mit dem ListView nicht kümmern, weder um Spalten, Zeilen, noch muss man es bei einem erneuten Aufruf des Befehl nicht Löschen oder dergleichen.
Allerdings muss ich gestehen, das diese Unit (noch) nicht per alle FTP-Seiten funktioniert. 
Anleitung:
KompilierenMarkierenSeparierenAls erstes füge die Unit zum Programm hinzu:
$U FTP2LV.PCU = List.
Erstelle in dem Profan-Programm ein leeres Listview mit dem Style $30 am Ende.
Beispiel:
listview&=CreateListView(%hwnd,%hinstance,0,$00FFFFFF,-1,$30)
ShowListView(listview&,10,10,775,550)
Ab jetzt braucht man sich nichtmehr um das ListView kümmern, der Rest macht die Unit.
Stelle eine Verbindung zum Server her.
Beispiel:
ftp(connect,anonymous,anony@mous.com,ftp.symantec.com,21)
Jetzt kommt die Unit zum Einsatz: LIST.FTPLV [Handle der ListView]
Beispiel:
LIST.FTPLV listview&
(Das aktuelle Verzeichniss wird angezeigt)
Jetzt kann z.B. in ein anderes Verzeichniss gewechselt werden:
Beispiel:
FTP(SetDir,/jpeg/)
und um die Liste wieder anzuzeigen, einfach wieder den Befehl:
LIST.FTPLV listview&
man braucht sich also nicht um das löschen der ListView zu kümmern. Das übernimmt die Unit.
Ein komplettes Beispiel:
KompilierenMarkierenSeparieren $P+
SetErrorLevel 0
USERMESSAGES 16,$0044
Declare lvdll&,ftpexit%,listview&
Def GetSysColor(1) !USER32,GetSysColor
$I ListView_Funktionen.inc
lvdll&=usedll(Listview.dll)
Register(123456) oder so ähnlich :-)
$U FTP2LV.PCU = List.
SetTrueColor 1
WindowStyle 26
WindowTitle FTP2LV
Window %maxX/2-400,(%maxY/2-300)-800,600
CLS GetSysColor(15)
listview&=CreateListView(%hwnd,%hinstance,0,$00FFFFFF,-1,$30)
ShowListView(listview&,10,10,775,550)
InitMessages(%hwnd)
ftp(connect,anonymous,anony@mous.com,ftp.symantec.com,21)
LIST.FTPLV listview&
sleep 2000
FTP(SetDir,/jpeg/)
LIST.FTPLV listview&
WhileNot ftpexit%
GetMessage
Case %Umessage=16:ftpexit%=1
Wend
DestroyWindow(listview&)
CloseMessages(%hwnd)
Dispose clv1#
Dispose clv2#
Dispose clvall#
Dispose lvitem#
freedll lvdll&
ftp(disconnect)
|
 |
| |
| |
| |
|
|
 | Funktioniert auf Deinem Webspace gut - aber nicht auf anderen.
Wenn Du den iFTP-Algo auch noch einbauen würdest...
Salve. |
|
| |
| |
| |
|
|
ByteAttack | | Bin schon dabei, es kommen da noch andere Befehle hinzu, bin da gerade am überlegen, ob das ganze nicht besser mit ner DLL zu lösen wäre... |
|
| |
| |
| |
|
|
ByteAttack | ALLES NEU
So, jetzt habe ich die Unit komplett NEU erstellt. Weiterhin habe ich diese dann auch mit nahezu 20 FTP-Listen ausprobiert. 
Nochwas so nebenbei: Die Adresse meiner Homepage hat sich geändert. Hatte die Schnauze von Freespace-Provider satt, wo man nicht mal File circa 200kB draufpacken kann.
Meine neue Adresse:
[...] |
|
| |
| |
| |
|
|
| Sehr nett deine HP  |
|
| |
| |
| |
|
|
 | Hallo MARK
Deine ftp2cv.pcu-File funktioniert bei mir einwandfrei (Server: 1und1) - leider hat sie einen Nachteil: Im Moment versuche ich mich an einem FTP-Client. Der Aufbau ist soweit auch fertig, der Zugang kommt und der Inhalt meiner Homepage wird komplett aufgelistet. Leider ist es aber nicht possibile, Dateioperationen wie z.B. FTP(UpLoad,S1,S2) auszuführen. Im gleichen Moment in dem ich einen Button oder das Listview mit dem Inhalt meiner Festplatte anklicke, läd die ftp2cv.pcu wieder die Serverdateien neu. Wie kann ich das verhindern oder kannst Du in Deine ...pcu da noch einen Trick einbauen, dass man alle FTP-Befehle ausführen kann ?
Gruss
horst  |
|
| |
| |
| |
|
(327)
Deutsch
English
Français
Español
Italia