Gut gekontert

Ich schliesse mich der Mehrheit an.
Liebe Grüsse aus der schönen Schweiz.
Mächtig grosse Klappe für jemanden, der noch keine einzige Zeile Code veröffentlich hat.xXRobo_CubeXx hat geschrieben:Musst du wissen, wenn du unbedingt ignorant sein willst. Ist nicht mein Problem wenn deine Programme wie immer abstürzen!
Es gibt nicht ohne Grund die Warnung von Debugger! Und wenn Fred das sagt das man nicht tun sollte, dann halte dich auch an die Guidelines. Alles andere ist nur schlechtes programmieren! Oh man einfach nur peinlich![]()
Gut das deine verbuggten Programme uberhaupt keinen interessiert.
Code: Alles auswählen
While WindowEvent() :Wend
Code: Alles auswählen
Procedure.s list_ftp_movie(dir$)
Define movie.s, f$, string_orginal.s
If IsFTP(#Ftp)
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
dir$=RemoveString(dir$,"|x|--->" )
CompilerElse
CompilerEndIf
SetFTPDirectory(#ftp,dir$)
If ExamineFTPDirectory(#ftp)
While NextFTPDirectoryEntry(#ftp)
f$=""
f$= FTPDirectoryEntryRaw(#Ftp)
f$=ReplaceString(f$,Chr(32),",") :f$=ReplaceString(f$,",,,,,",","):f$=ReplaceString(f$,",,,,",","):f$=ReplaceString(f$,",,,",","):f$=ReplaceString(f$,",,",","):
AddElement(info_distant()):
info_distant()\size.s=Str(FTPDirectoryEntrySize(#ftp)/1024)
info_distant()\size_byte=Str(FTPDirectoryEntrySize(#ftp))
info_distant()\dat.s=StringField(f$,6,",")+" "+StringField(f$,7," ")+","+StringField(f$,8,",")
info_distant()\type.l=Val(StringField(f$,2,","))
info_distant()\link.s=StringField(f$,11,",")
info_distant()\Name = FTPDirectoryEntryName(#ftp)
If GetExtensionPart(info_distant()\name.s)="ts"
moviename=movie
datum_zeit=filter_datum_movie(movie)
info_distant()\Dat=datum_zeit
moviename=Mid(moviename, 16)
Delay(20)
If IsWindow(#Window_Wait_Movie)
SetGadgetText(#String_moviescanner, "Add : "+ moviename+ " from "+ dir$)
EndIf
While WindowEvent() :Wend
AddGadgetItem(Gadget_List_FTP, i, moviename+Chr(10)+sizemb+" MB"+Chr(10)+datum_zeit,ImageID(#tsmovie))
EndIf
If GetExtensionPart(movie)="mp4"
If IsWindow(#Window_Wait_Movie)
SetGadgetText(#String_moviescanner, "Add :"+ moviename+ " from "+ dir$)
EndIf
While WindowEvent() :Wend
AddGadgetItem(Gadget_List_FTP, i, movie+Chr(10)+sizemb+" MB"+Chr(10)+info_distant()\Dat,ImageID(#mp4movie))
EndIf
If GetExtensionPart(movie)="flv"
If IsWindow(#Window_Wait_Movie)
SetGadgetText(#String_moviescanner, "Add :"+ moviename+ " from "+ dir$)
EndIf
;While WindowEvent() :Wend
AddGadgetItem(Gadget_List_FTP, i, movie+Chr(10)+sizemb+" MB"+Chr(10)+info_distant()\Dat,ImageID(#flvmovie))
EndIf
EndIf
Wend
FinishFTPDirectory(#ftp)
SortStructuredList(info_distant(), 0, OffsetOf(info_distant\Name_ori.s), TypeOf(info_distant\Name_ori.s))
ResetList(info_distant())
ResetList(info_distant())
While NextElement(info_distant())
If info_distant()\Name_ori.s=".." Or info_distant()\Name_ori="."
DeleteElement(info_distant())
EndIf
Wend
EndIf
Else
MessageRequester("Info","Connection Closed !",#MB_OK|#MB_ICONINFORMATION|#MB_DEFBUTTON1|#MB_APPLMODAL)
EndIf
EndProcedure
das können wir nur, wenn ein (kurzer und lauffähiger) Code gepostet wird, anhand dessen man den Fehler nachvollziehen kann. Das habt Ihr beide (ThoPie und Du) noch nicht getan.schleicher hat geschrieben:Schön wäre es, wenn mal hier schreibt, wie es denn richtig gemacht wird.