ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
18.02.2009, 22:18
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
Сообщение от Stil Free
всем доброго времени суток у меня такой тяжёленький вопрос надеюсь поможете обрыл всё что мог на делфикинге не помогают. В общем написал прогу по отправке письма , но я хочу её модифицировать и сделать отправку с подменой адреса как это осуществить?
Нужен хостинг с php и sendmail . На сколько я знаю, бесплатно таких трудно найти, а если найти то работают они на 50%. Поэтому юзается платный хостинг. То есть закидываешь скрипт на этот хост и через него посылаешь сообщения анонимно. Все попытки отредактировать MIME ну и так далее к нужному результату не приведут 
|
|
|
17.02.2009, 17:30
|
|
Участник форума
Регистрация: 07.08.2007
Сообщений: 136
Провел на форуме:
2010588
Репутация:
653
|
|
Стукните ко мне в аську той кто розбираеться в делфи !
|
|
|
|
19.02.2009, 01:47
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Помогите решить проблемму кому не в лом, есть процедура отправки файлов с компа на сервер.
Код:
// Отправляем файл гейту
procedure TForm1.postdownload;
var
d:TIdMultiPartFormDataStream;
begin
d:=TIdMultiPartFormDataStream.Create;
d.AddFile('userfile',Edit1.text,'file');
try
IdHTTP1.Post('http://gate.ru/lol.php'+'?',d);
except
IdHTTP1.Disconnect;
end;
end;
Вот собственно полный код отправки файла на сервер, проблемма кроется в том, что после 2-3 переданных файлов на сервер, вся программа как бы виснет и не функционирует, всё окончательно сводится на этот кусок кода, есть ли возможность исправить ошибку чтобы программа не висла ? |
|
|
|
19.02.2009, 01:52
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от Nightmarе
Помогите решить проблемму кому не в лом, есть процедура отправки файлов с компа на сервер.
Код:
// Отправляем файл гейту
procedure TForm1.postdownload;
var
d:TIdMultiPartFormDataStream;
begin
d:=TIdMultiPartFormDataStream.Create;
d.AddFile('userfile',Edit1.text,'file');
try
IdHTTP1.Post('http://gate.ru/lol.php'+'?',d);
except
IdHTTP1.Disconnect;
end;
end;
Вот собственно полный код отправки файла на сервер, проблемма кроется в том, что после 2-3 переданных файлов на сервер, вся программа как бы виснет и не функционирует, всё окончательно сводится на этот кусок кода, есть ли возможность исправить ошибку чтобы программа не висла ?
Код:
http:TidHTTP;
Begin
http:=TidHTTP.create(nil);
....
....
http.Free;
End;
Хм...Так?
|
|
|
|
19.02.2009, 02:34
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
De-visible ещё раз спасибо, твой вариант подошёл лучше остальных.
|
|
|
|
19.02.2009, 15:58
|
|
Участник форума
Регистрация: 19.08.2005
Сообщений: 132
Провел на форуме:
1387194
Репутация:
121
|
|
Нужно написть что-то наподобии графического редактора. Посоветуйте у кого был опыт какой компонент лучше всего использовать для этого? Пока из мыслей только Image, на нём рисовать, но думаю дальше паинта не уйду. Желатьельно чтобы можно было делать слои и поддерживалась прозрачность.
|
|
|
|
19.02.2009, 19:40
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Я новичек в делфи, поэтому просьба не пинать. Как сделать так чтоб этот кусок кода выполнялся 10 раз и останавливался?
Код:
ICQclient1.SendMessage(StrToInt(target.Text),edit.text);
Sleep(200);
ICQclient2.SendMessage(StrToInt(target.Text),edit.text);
Sleep(200);
ICQclient3.SendMessage(StrToInt(target.Text),edit.text);
И вот еще при ипользовании оператора Sleep программа немного подвисает, как сделать чтоб клиенты по очереди слали сообщения с определенным промежутком времени. Тоесть мне надо например при нажатии на кнопку 3 этих ICQClient'а будут слать сообщения с имтервалом 200мс 10 раз, тоесть с итоге должно получится 30 сообщний |
|
|
|
19.02.2009, 19:58
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 99
Провел на форуме:
613745
Репутация:
51
|
|
Эм, циклом?
Код:
For x:=1 to 10 do begin
ICQclient1.SendMessage(StrToInt(target.Text),edit. text);
Sleep(200);
ICQclient2.SendMessage(StrToInt(target.Text),edit. text);
Sleep(200);
ICQclient3.SendMessage(StrToInt(target.Text),edit. text);
end;
А от зависаний я пользовался Аpplication.ProcessMessages(), но при сложных расчётах, как со слипом будет работать - не скажу. Ну либо компонентом TIdAntiFreeze
Последний раз редактировалось lll6; 19.02.2009 в 20:02..
|
|
|
|
19.02.2009, 20:24
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
чтоб не зависало тут или в отдельном потоке или
Код:
procedure sleep(ms:cardinal);
var
tc:cardinal;
begin
tc:=GetTickCount;
repeat
Application.ProcessMessages;
until GetTickCount-tc > ms;
end;
|
|
|
|
19.02.2009, 23:22
|
|
Участник форума
Регистрация: 01.08.2008
Сообщений: 239
Провел на форуме:
448388
Репутация:
31
|
|
Всем привет!
Есть задача подсчитать кол-во предложений в тексте.
1. Есть ли что-то готовое на этот счёт?
2. Начала реализовывать вот так:
clrscr;
assign(text, 'text.txt');
reset(text);
while not EOF(text) do
begin
read(text, simb);
write(simb);
if (simb='.')or(simb='!')or(simb='?') then inc(kol);
end;
writeln;
writeln ('Текст состоит из ',kol,' предложений');
readln;
close(text);
Но получается что для более точного подсчёта предложений мне нужно знать что находится перед символами "." "!" "?", а использовать стандартные функции работы с текстом нельзя и массивы тоже.
Подскажите пожалуйста как выйти из данной ситуации? |
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид