 |
|
13.11.2009, 14:01
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
самый простой вариант -
пробегайся по этой стоке и считай кол-во ` как тока появился третий, то запоминай его позицию. И копируй текст от начало и до этой позиции
|
|
|
13.11.2009, 16:55
|
|
Участник форума
Регистрация: 20.02.2009
Сообщений: 183
С нами:
9063843
Репутация:
50
|
|
В PHP есть функция explode
PHP код:
<?php
$array = explode('`','123456`12345`123456789`ahsdaskd`', -1);
$count = strlen($array[0]) + strlen($array[1]) + strlen($array[2]);
print $count;
?>
Оно выведет 20, т.к. 123456+12345+123456789.
Соответсвенно я бы копировал 23 символа со строки.
Есть ли аналог такой функции в Delphi?
Последний раз редактировалось warkk; 13.11.2009 в 16:58..
|
|
|
|
13.11.2009, 16:58
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от warkk
В PHP есть функция explode
PHP код:
<?php
$array = explode('`','123456`12345`123456789`ahsdaskd`', -1);
$count = strlen($array[0]) + strlen($array[1]) + strlen($array[2]);
print $count;
?>
Есть ли аналог в Delphi?
Код:
function Explode(s,d:string;n:word):string;
var i,j,o,r:word; t:string;
begin
result:='';
if pos(d,s)=0 then exit;
if pos(d,s)=1 then s:=copy(s,length(d),length(s));
t:=s;r:=1;
for i:=1 to n do begin
o:=pos(d,t);
if o=0 then exit;
result:='';
for j:=r to o-1 do result:=result+t[j];
r:=o+length(d);
for j:=o to r-1 do t[j]:=char(1);
end;
end;
Это функция от Slesh`a
Первый параметр - что запихиваем в буффер.
Второй - символы для разделения.
Третий - номер массива.
То есть пример:
Explode('lol1:lol2:lol3',':',2);
выведет: lol2 и т.д..
Последний раз редактировалось Nightmarе; 13.11.2009 в 17:00..
|
|
|
|
13.11.2009, 17:01
|
|
Участник форума
Регистрация: 20.02.2009
Сообщений: 183
С нами:
9063843
Репутация:
50
|
|
Спасибо. Сейчас попробую.
Работает 
Последний раз редактировалось warkk; 13.11.2009 в 17:10..
|
|
|
|
13.11.2009, 21:54
|
|
Познающий
Регистрация: 07.11.2009
Сообщений: 36
С нами:
8690006
Репутация:
0
|
|
Народ!! вот у меня есть два компонента: TMediaPlayer и TListBox !
В TListBox содержиться плэйлист TMediaPlayer!
Как сделать так что бы когда одна песня заканчивалась, начинала играть вторая, которая следующия за ним в списке, и что бы она также выделялась в списке фокусом???
Зарание спасибо!!
|
|
|
|
14.11.2009, 00:08
|
|
Новичок
Регистрация: 16.11.2008
Сообщений: 27
С нами:
9201836
Репутация:
6
|
|
1
делфи можно экспортировать в html с помошью ActiveX-форм,но для их отображения на компе у пользователя нужно что бы он понизил свой уровень безопасности в IE,что вряд ли будет...вопрос:возможен ли еще какой то способ вставки объекта(созданого в делфи) в html?
|
|
|
|
14.11.2009, 09:19
|
|
Moderator - Level 7
Регистрация: 02.05.2009
Сообщений: 894
С нами:
8960826
Репутация:
2261
|
|
сложный короткий вопрос на который не будет ответа:
функция connect в winapi:
при её использовании к серверу - для установки коннекта - шлется какой-то мини-запрос из нескольких байт, насколько я понимаю. Так же несколько байт, видимо, принимаются обратно, в результате чего ф-ция connect, соответст-но и возвращает значение 0 или 1.
вопрос:
собственно что за запрос шлется\получается, как он выглядит, какие ресурсы он потребляет на целевом хосте при условии, что таких запросов одновременно сделано оч. много
так же интересно, что именно просисходит, если сделать на машине с windows XP одновременно (скажем, в теченеие 10 сек) несколько тысяч запросов connect к чему-либо. Т.е. что "просиходит" - и так видно: дохнет либа отвечающяя за работу с winsock, вопрос в том, почему это происходит (хотя тут уже - скорее риторический. видимо, потому что это windows)
Последний раз редактировалось ErrorNeo; 14.11.2009 в 09:41..
|
|
|
|
14.11.2009, 10:25
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
С нами:
9679872
Репутация:
347
|
|
сложный короткий вопрос на который не будет ответа
чувак, как я уже говорил, перед тем как спрашивать прочитал бы хотя бы хоть чтото. И не надо делать из всего что ты изучаешь этакие магические хакерские секреты которых никто не знает кроме избранных.
при её использовании к серверу - для установки коннекта - шлется какой-то мини-запрос из нескольких байт, насколько я понимаю
эти "несколько байт" называются пакетами SYN, ACK и SYN/ACK то есть пакеты с взведенными соответственными флагами. Почитай Йона Снейдера "Эффективное программирование TCP IP" там ОЧЕНЬ подробно расписано.
так же интересно, что именно просисходит, если сделать на машине с windows XP одновременно (скажем, в теченеие 10 сек) несколько тысяч запросов connect к чему-либо. Т.е. что "просиходит" - и так видно: дохнет либа отвечающяя за работу с winsock, вопрос в том, почему это происходит (хотя тут уже - скорее риторический. видимо, потому что это windows)
Никто никуда не дохнет, в winxp стоит ограничение 10 TCP соединений на один процесс...
|
|
|
|
14.11.2009, 14:31
|
|
Moderator - Level 7
Регистрация: 02.05.2009
Сообщений: 894
С нами:
8960826
Репутация:
2261
|
|
bons
2 пункт пригодился - гуглю сабж.
1 пункт - сохранил, почитаю.
3 - либа вылетает только при условии, что снят лимит на half-open connects(или он заведомо большой). Так что претензий в мелокософту, видимо, тоже нет - они на это не расчитывали. Просто любопытный метод "отрубить" своей машине сеть
теперь интерсно:
1. реализация SYN\ACK запросов на дельфи - буду гуглить
(интересуют модифицированные запросы, а не стандартные, которые предоставляет ф-ция connect)
2. перспективы патчинга tcp.sys в целях перенаправления траффика (и прочих)
Последний раз редактировалось ErrorNeo; 14.11.2009 в 14:48..
|
|
|
|
14.11.2009, 15:10
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
2 ErrorNeo собирашся ддос бота писать чтоли?
0) то что ты описал - это банальный SYN флуд. Который когдато был очень уж популярным. Но сейчас самая ленивая ОС с ним кое как справляется. Фряха вообще в ядре имеет защиту от syn флуда.
1) SYN\ACK запросы - юзай сырые сокеты. Но там нельзя подделать адрес отправителя ). КОгдато сам такое на делфи писал )
2) Также как вариант можно заюзать либу WinPCap чтобы из своих программ подделывать запросы.
3) патчить tcp.sys - можно, но не нужно. Существует такая вешь как TDI и там ты можеш поставить фильтровать входящие и исходящие пакеты и также можеш их подправляться слегка ) и куда угодно можеш перенаправить тогда.
4) Но самая беспаливная вешь это юзать хуки на уровне NDIS. Там ты сам бог сетевой.
Также можно зарегать новый NDIS протокол и через него работать.
Можеш строить сам какие хочешь пакеты и отправлять куда хочешь с любыми подельными данными. Но увы это уже не юзермод.
Последний раз редактировалось slesh; 14.11.2009 в 15:13..
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
