[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

т.е. всего лишь надо спарсить страницу на эти хеши?

 

да

 

вместо 'ыуа11.фффJMTDAGPJшшш' подставляешь переменную Str,
вместо ффф тег который перед нужным текстом,
вместо шшш тег, который в конце.

выводит текст между тегами <title> </title>

PHP:

var
  str:string;
begin
  Str:=idHttp1.Get('http://forum.antichat.ru/'); 
  ShowMessage(ParserBlock(Str, '<title>','</title>')); //  Форум АНТИЧАТ - безопасность WEB - интерфейсов 
end;

P.s. но если подобное выражение встречается несколько раз, то тут надо обрезать ненужный текст, или можно дописать функцию, что бы начальная позиция начиналась не с 1 символа, a с N.

 

Кто может кинуть сюда подробную инструкции по сборке чата галактике на делфи с кодами и если можно напиши какой код куда вставить и порядок. ЗАРАНЕЕ СПАСИБО!

 

Такая вот у меня херня.
Пытаюсь всунуть в свою программу звук. Нашёл код:

создаю новый проект, кидаю в него Alarm.rc, компилирую. Сохраняю Alarm.res.
Запускаю проект со своей прогой, вставляю {$R Alarm.res}, компилирую, ошибка

Ищу в гугле решение, нашёл, понимаю что повторяется 2 раза {$R *.dfm}. Убираю в первом проекте этот {$R *.dfm}, компилирую и ошибка.
И в чём лажа , помогите!

 

Всё, нашёл решение, в папку \Delphi7\Bin кидаем Alarm.rc и Alarm.wav
Alarm.rc перетаскиваем на brcc32.exe и появляется Alarm.RES
P.S. Может кому пригодится

 

в *.dpr прописано {$R *.res} , тоесть по идеи он должен подключать все ресурсы которые находятся в каталоге с исходниками.
Вызвать Project1.dpr можно: View> Units (CTRL+F12) > Project1

Вот еще ссылка:
Проигрование Wave помещеного в ресурс

 

он написан на java

 

Да мне для компа нужна

 

Что именно? Запус явы на ПК ?
Таких прогу куча.
Или ты хочеш свой чат накатать?

 

Он видимо хочет код чата галактики на delphi чтобы создать такой же чат и быть крутым челом

 

такого кода нет.
она написана на другом языке

 

Это ты мне то зачем говоришь? Говори icqnum, я то знаю прекрасно этот чат и на чём он написан.

 

Мне нужно из процедуры:
procedure TForm1.FormHide(Sender: TObject);
begen
...
end;
вызвать таймер, то есть после сворачивания формы должен запустится таймер:

procedure TForm1.FormHide(Sender: TObject);
begin
Label1.Caption := 'Hello World';

{ после этого запускаем тут таймер который будет влиять на то что находится ниже }

ShowMessage('Будь проклят этот мир!!!');
end;

Ну это всего лишь пример. Как можно сделать подобную хрень? хелп!

 

Как можно сделать на delphi так, что бы нельзя было закрыть программу ни чере alt+f4 ни через правую кнопку закрыть, ни свернуть?
Подскажите пожалуйста!

 

не закрыть через alt + f4

 

что то не выходит, я новичок в этом деле, куда вставить этот код?

 

sleep? (если же программа будет виснуть при sleep - то создавай отдельную процедуру, заноси в нее то что в процедуре FormHide, ну и дальше эту отдельную процедуру вызывай через отдельный поток (createthread))

 

клинки на форму и перейди в Events, кликни 2 раза по FormKeyDown и вставь в форме
if (Key = VK_F4) and (ssAlt in Shift) then begin
Key := 0;
между begin и end

 

код не работает, закрывает!