22.01.2008, 21:50
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
Вот тож накидал чуток, кидаеш 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.
|
|
|