ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
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.
|
|
|
24.01.2008, 19:31
|
|
Участник форума
Регистрация: 06.06.2006
Сообщений: 163
Провел на форуме:
1025198
Репутация:
11
|
|
Спасиба то что надо. Но обьясни почему когда я копирую этот код и пытаюсь его в дельфи 7 скомпилировать оно у меня не компилируеться и находит ошибку?
|
|
|
|
24.01.2008, 20:28
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
просто фильтр форума покоцал исходник  вот исходник в архиве рабочий - http://dump.ru/files/o/o339431404/ |
|
|
|
24.01.2008, 22:08
|
|
Участник форума
Регистрация: 06.06.2006
Сообщений: 163
Провел на форуме:
1025198
Репутация:
11
|
|
Отлично спасибо.
|
|
|
|
24.01.2008, 23:06
|
|
Участник форума
Регистрация: 06.06.2006
Сообщений: 163
Провел на форуме:
1025198
Репутация:
11
|
|
почемуто когда я компелирую этот код то он уже не работает. Хотя может я как то не так компелирую раскажи мне как это сделать в дельфи???
|
|
|
|
25.01.2008, 00:47
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
я похож на учителя по делфе? я выложил в посте выше готовый Exe, и сорец. Если ты не в состоянии сконпелировать ГОТОВЫЙ проект, то какого извини хера ты делаеш в универе, или где ты там учишся... ппц :d
ах да, курсы по Делфе от Лироя, недорого! |
|
|
|
25.01.2008, 15:39
|
|
Участник форума
Регистрация: 06.06.2006
Сообщений: 163
Провел на форуме:
1025198
Репутация:
11
|
|
В школе. Я в дельфи никогда до этого ещё не работал просто ненадо ругаться
|
|
|
|
25.01.2008, 15:58
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
клацни 2 раза по проекту, который я тебе скинул. Откроется Делфе с открытым сурсом этим, нажми Shift + F9, и проект готов |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
