ВОт у меня такая проблема я делаю один проект для зачёта по информатике и столкнулся с такой проблемой У меня есть большоё количество фотографий котрые нужно отдельно поместить на отдельную хтмл страницу каждую фотографию Помогите я уже зае..... каждую вставлять посоветуйте какой прогой можно упростить этот процес?
я незнаю мне нужно бонально какаято прга которая поможет мне поместить каждую фотку на отдельную нтмл страницу и всё
Закинь файлы в диру со скриптом и запусти скрипт PHP: <? $directory = '.'; $handler = opendir($directory); while ($file = readdir($handler)) { if ($file != '.' && $file != '..' ) { if (is_file($file)) { $File = $file.".html"; $fh = fopen($File, 'w'); $Data = "<img border='0' src='$file' />"; fwrite($fh, $Data); fclose($fh); } } } closedir($handler); ?>
скинуть в файлы в дыру это как раз и есть: большоё количество фотографий котрые нужно отдельно поместить на отдельную хтмл страницу каждую фотографию
Вот тож накидал чуток, кидаеш exe в папку с картинками, запускаеш... прога создаст файлы HTML в той же папке с названием - название.картинки.HTML. В страничку допишед вот такое - PHP: <html><body></a><img src="' + имя.картинки + '"></body></html> Что вроде и требовалось Вот экзе - http://dump.ru/files/o/o1403731592/ А вот код (делфе): PHP: program sorter; //{$APPTYPE CONSOLE} uses Windows, SysUtils, Classes; function ExtractFilePath(const FileName: string): string; var i: longint; begin i := Length(FileName); while (i > 0) and not (FileName[i] in ['/', '\', ':']) do Dec(i); If I>0 then Result := Copy(FileName, 1, i) else Result:=''; end; var SR:TSearchRec; FindRes:Integer; Str: String; begin FindRes:=FindFirst(ExtractFilePath(paramstr(0))+'*.jpg',faAnyFile,SR); While FindRes=0 do begin Str:= '<html><body></a><img src="' + SR.Name + '"></body></html>'; with TFileStream.Create(pchar(SR.Name + '.html'), fmCreate) do try Write(Str[1], Length(Str)); finally Free; end; FindRes:=FindNext(SR); end; FindClose(SR); end.
Спасиба то что надо. Но обьясни почему когда я копирую этот код и пытаюсь его в дельфи 7 скомпилировать оно у меня не компилируеться и находит ошибку?
просто фильтр форума покоцал исходник вот исходник в архиве рабочий - http://dump.ru/files/o/o339431404/
почемуто когда я компелирую этот код то он уже не работает. Хотя может я как то не так компелирую раскажи мне как это сделать в дельфи???
я похож на учителя по делфе? я выложил в посте выше готовый Exe, и сорец. Если ты не в состоянии сконпелировать ГОТОВЫЙ проект, то какого извини хера ты делаеш в универе, или где ты там учишся... ппц :d ах да, курсы по Делфе от Лироя, недорого!
клацни 2 раза по проекту, который я тебе скинул. Откроется Делфе с открытым сурсом этим, нажми Shift + F9, и проект готов