Форум » LetoDB, HbNetio. » Logo LetoDb ? » Ответить

Logo LetoDb ?

Andrey: Кто подскажет, есть ли официальный логотип LetoDb ? И где его можно скачать ?

Ответов - 11

sashaBG: Нашел я у себя ето, не помню кто делал https://postimg.cc/CRRGcqr9

Andrey: Спасибо. Сделал пока такое...

Andrey: Как можно получить список всех файлов на сервере LetoDB с корневого каталога ?


SergKis: Как можно получить список всех файлов на сервере LetoDB с корневого каталога ? Корневым каталогом LetoDbf будет из ini DataPath = .\DataBase\ LetoDbf. Readme.txt[pre2] ... 7.6 File functions ... Leto_Directory( [ cDir ] [, cnAttr] ) ==> aDirectory Returns a content of directory at the server in the same format as Directory() function. With no given <cDir> the DataPath root directory is used. ... [/pre2] Можешь написать UDF функцию, запустив на сервере ее, можешь определить массив (что будет доступно) ф-ей hb_Directory(), вернув из UDF полученный массив (мне ни разу не понадобилось)

Andrey: Да это читал. Только папки вложенные могут быть. Как в таком случае делать ? Использую уже давно DirectoryRecurse(...) Думал есть похожая функция уже в LetoDB.

SergKis: Andrey пишет Как в таком случае делать ? Как обычно, применяя вместо Directory() leto_Directory(), т.е. aDir := leto_directory() показал, выбрал cDir aDir := leto_directory(cDir) и т.д. - это диалог или поправь DirectoryRecurse(...) на исп. leto_directory()

Dima: Не благодари http://clipper.borda.ru/?1-4-0-00001051-000-0-0-1427848859 DirEval() В ней можно заменить Directory() на leto_Directory()

Andrey: Dima пишет: DirEval() Не пашет ... [pre2] aList := DirEval( GetStartUpFolder() ) ? "aList=", aList [/pre2]В логе: [pre2] aList= ARRAY[0] [/pre2]

Andrey: Вот так работает: [pre2]Function DirEval2( cInitDir, lStart ) Local i, arlen, aFiles, aDop, aFRet := {} Default lStart := .T. IF Right( cInitDir,1 ) != "\" cInitDir += "\" ENDIF aFiles := Directory( cInitDir + "*.*", "HSD" ) arlen := Len( aFiles ) FOR i := 1 TO arlen IF "D" $ aFiles[ i,5 ] IF "." != aFiles[ i,1 ] .AND. ".." != aFiles[ i,1 ] aDop := DirEval2( aFiles[i,1] ) AMERGE(aFRet, aDop) ENDIF ELSE IF lStart aFiles[i,1] := UPPER(cInitDir) + LOWER(aFiles[i,1]) ENDIF AADD( aFRet, aFiles[i,1] ) ENDIF NEXT Return aFRet [/pre2]

Dima: Andrey пишет: IF Right( cInitDir,1 ) != "\" cInitDir += "\" ENDIF cInitDir:=hb_DirSepAdd(cInitDir) // так проще

Dima: Если у Leto_Directory такие же параметры , то Directory() нужно заменить на неё



полная версия страницы