|
Загрузка картинок из папок в базу
|
||
|---|---|---|
Участник
Откуда: Омикрон Персей 8
Сообщения: 7 682 |
||
| 24.10.2007, 10:07:30 |
|
|
|
|
|
Загрузка картинок из папок в базу
|
|||
|---|---|---|---|
|
#18+
есть папка img, в ней еще куча папок от 1 до 670 (имя паки, не подря идут), нужно что бы прошка заносили картинки в базу из этих папок, как заначить я знаю, а вот как сделать чтобы прошка заходила в одну папку допустим img/1, если в ней есть картинки то он из в базу, если нет то заходли дальше(по пути img/2) и так далее пока не будут внесены все файлы, === подскажи хотя бы счего начать) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2007, 09:57:15 |
|
||
|
Загрузка картинок из папок в базу
|
|||
|---|---|---|---|
|
#18+
FindFirstFile / FindNextFile -------------------------------------------------------------- [не претендую на уникальность] ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2007, 10:07:30 |
|
||
|
Загрузка картинок из папок в базу
|
|||
|---|---|---|---|
|
#18+
CerebrumFindFirstFile / FindNextFile -------------------------------------------------------------- [не претендую на уникальность] щас попробую ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2007, 10:31:49 |
|
||
|
Загрузка картинок из папок в базу
|
|||
|---|---|---|---|
|
#18+
а покажи примерчик, хотя бы самый простой, в справке по Билдеру нет (( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2007, 10:40:11 |
|
||
|
Загрузка картинок из папок в базу
|
|||
|---|---|---|---|
|
#18+
FindFirst/FindNext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2007, 11:06:52 |
|
||
|
Загрузка картинок из папок в базу
|
|||
|---|---|---|---|
|
#18+
Orb*а покажи примерчик, хотя бы самый простой, в справке по Билдеру нет (( Это WinAPI функции. В Builder есть попроще: FindFirst/FindNext/FindClose и для них есть пример. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2007, 11:08:04 |
|
||
|
Загрузка картинок из папок в базу
|
|||
|---|---|---|---|
|
#18+
TSearchRec rrr; str="C:/img/1/"; if( FindFirst(str,faAnyFile,rrr)) { if (rrr.Attr&faAnyFile==faAnyFile) do { Label3->Caption=str+rrr.Size; Label4->Caption=str+rrr.Name; } while (FindNext(rrr)==faAnyFile); { //код занесеняи в базу } FindClose(rrr); ПОмогите сделать правильно, он не берет не один файл, где ошибка испарвьте пожалуйста ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2007, 12:33:49 |
|
||
|
Загрузка картинок из папок в базу
|
|||
|---|---|---|---|
|
#18+
Зачем пример Borland испортил? замени if (rrr.Attr&faAnyFile==faAnyFile) на if ((rrr.Attr&faAnyFile)==faAnyFile) Кроме того:FindNext returns the next entry that matches the name and attributes specified in a previous call to FindFirst. The search record must be one that was passed to FindFirst. The return value is zero if the function was successful. Otherwise the return value is a Windows error code. Поэтому строку while (FindNext(rrr)==faAnyFile); надо заменить на while (FindNext(rr) == 0); ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2007, 13:18:10 |
|
||
|
|
start [/forum/topic.php?fid=57&msg=34890113&tid=2027956]: |
0ms |
get settings: |
7ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
209ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
40ms |
get tp. blocked users: |
1ms |
| others: | 222ms |
| total: | 512ms |
| 0 / 0 |
