Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
18.08.2007, 13:35
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Не ужели мне некто не может помочь?!
|
|
|
18.08.2007, 13:54
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от infernal-team
Задача заключается в следующем: нужно чтобы при вводе данных в ComboBox2 и Edit1, при нажатии Button1 открывалась следующая форма
PHP код:
Button1Onclick
Form2.ShowModal;
и данные введенные в ComboBox2 и Edit1 отправлялись мне на e-mail или в ICQ !!! Надеюсь на помощь !!!
PHP код:
function mail(smtp: string; port: integer; from, dest, subject,
body: string): bool;
const
cl = #13#10;
var
WSAData: TWSAData;
Host: TSockAddrIn;
Sock: TSocket;
res: Integer;
buff: array[1..255] of Char;
{ отправляем данные через сокет }
procedure senddata(str: string);
var
i: integer;
begin
for i := 1 to Length(str) do
if send(Sock, str[i], 1, 0) = SOCKET_ERROR then
exit;
end;
{ получаем ответ от команды }
function recvdata(accept: string): bool;
var
buff: array[1..255] of Char;
begin
res := recv(Sock, buff, SizeOf(buff), 0);
Result := (Res = SOCKET_ERROR) or (Copy(buff, 1, 3) = accept);
end;
begin
try
result := false;
{ инициализация сокета }
WSAStartUp(257, WSAData);
Sock := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
if Sock = INVALID_SOCKET then
Exit;
{ устанавливаем хост и порт сервера }
res := inet_addr(PChar(smtp));
if res <= 0 then
exit;
Host.sin_family := AF_INET;
Host.sin_port := htons(port);
Host.sin_addr.S_addr := res;
{ подключаемся к серверу }
if connect(Sock, Host, SizeOf(Host)) > 0 then
Exit;
{ приветствие сервера }
if not recvdata('220') then
Exit;
{ EHLO }
senddata('EHLO' + cl);
if not recvdata('250') then
Exit;
{ MAIL FROM: }
senddata('MAIL FROM:' + from + cl);
if not recvdata('250') then
Exit;
{ RCPT TO: }
senddata('RCPT TO:' + dest + cl);
if not recvdata('250') then
Exit;
{ DATA }
senddata('DATA' + cl);
if not recvdata('354') then
Exit;
{ отправляем текст сообщения }
senddata('Subject:' + subject + cl + cl + body + cl + '.');
if not recvdata('250') then
Exit;
{ отключаемся от сервера }
senddata('QUIT' + cl);
result := true;
finally
{ убиваем сокет }
closesocket(sock);
WSACleanup;
end;
end;
{
mail('127.0.0.1',25,'bboy-ne@yandex.ru' ,'admin@company.mail', 'subj', 'body text');
}
(c) http://forum.vingrad.ru/forum/topic-55273.html
сохраняем копирайты! =/
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
18.08.2007, 14:01
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от fremax
Есть пога, которая хранит некоторые настройки в файле *.xml
Я открываю через свою прогу этот файл в текстовом режиме. Дописываю в него текст и закрываю. Проблема в том что если текст был русским, то та программа потом не отображает его, а если англ., то все норм.
Примечания.
Если файл xml открыть блокнотом, то можно увидеть строку encoding="utf-8"
До открытия файла моей програмкой русский текст (если он присутствовал в файле) отображается нормально, но после добавления нового текста моей прогой имющийся до этого русский текст в файле заменяется на что-то типа "ерер"
Помогите разобраться.
AnsiToUtf8()
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
18.08.2007, 14:10
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
[Error] Unit1.pas(68): Undeclared identifier: 'TWSAData'
[Error] Unit1.pas(69): Undeclared identifier: 'TSockAddrIn'
[Error] Unit1.pas(70): Undeclared identifier: 'TSocket'
[Error] Unit1.pas(80): Undeclared identifier: 'send'
[Error] Unit1.pas(80): Undeclared identifier: 'SOCKET_ERROR'
[Warning] Unit1.pas(80): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(89): Undeclared identifier: 'recv'
[Error] Unit1.pas(90): Undeclared identifier: 'SOCKET_ERROR'
[Error] Unit1.pas(97): Undeclared identifier: 'WSAStartUp'
[Error] Unit1.pas(98): Undeclared identifier: 'socket'
[Error] Unit1.pas(98): Undeclared identifier: 'SOCK_STREAM'
[Error] Unit1.pas(98): Undeclared identifier: 'IPPROTO_IP'
[Error] Unit1.pas(99): Undeclared identifier: 'INVALID_SOCKET'
[Warning] Unit1.pas(99): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(103): Undeclared identifier: 'inet_addr'
[Error] Unit1.pas(107): Missing operator or semicolon
[Error] Unit1.pas(108): Missing operator or semicolon
[Error] Unit1.pas(108): Undeclared identifier: 'htons'
[Error] Unit1.pas(109): Missing operator or semicolon
[Error] Unit1.pas(112): Undeclared identifier: 'connect'
[Warning] Unit1.pas(112): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(150): Undeclared identifier: 'closesocket'
[Error] Unit1.pas(151): Undeclared identifier: 'WSACleanup'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit1.pas'
В чем проблема?
|
|
|
|
18.08.2007, 14:11
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
мда, а че сложного то? у тебя ситуцация такая, что словами нихрена неопишеш а кодить несложно, просто время займет. а за просто так, никто такой херней заниматся небудет, пиши в работу.
|
|
|
|
18.08.2007, 14:15
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Да какая работа тут дела на 5-10 минут, только я не очень селен в делпхи. Пробывал код с mail agenta (фейк чет не получилось).
|
|
|
|
18.08.2007, 19:06
|
|
Участник форума
Регистрация: 16.09.2006
Сообщений: 139
Провел на форуме:
513709
Репутация:
144
|
|
квэшн
Всем привет!
Вот есть код
Код:
<body>
Загруженость сервиса: 0 %
<TABLE width="200" cellpadding="0" cellspacing="0" height="7">
<TR>
<TD align="center" bgcolor="#CC5555" width=0%>
</TD>
<TD align="center" bgcolor="#888888" width=200%>
</TD>
</TR>
</table><br>
<div align=center><table cellspacing=0 border=0 cellpadding=0 width=650>
<tr>
<td style="padding:0px; margin: 0px; width: 100%; border: 1px solid #ffffff; height:68px;background-image: url('fon.png')"><img src="logo.png" alt=""></td>
</tr>
</table></div><br>
<div align=center><table cellspacing=0 border=0 cellpadding=3 width=650>
<tr valign=top>
<td width=300 style="vertical-align:middle;" bgcolor=white><a href="http://www.adv.lala.org/"><img border=0 src="reklama_loader.gif" alt=""></a></td>
<td bgcolor=#444444 class="panel"><b>Отправка файла на E-mail</b><br><br><br> <div align=center>
Размер файла не должен превышать <b>100 MB</b><br><br>
Файл разбивается на части если его размер больше <b>10 MB</b><br><br>
<form action="index.php" method="post" ENCTYPE='multipart/form-data'>
<div align=left>url (путь к файлу с <b>протоколом</b>):<br>
<input name="usrurl" type=text value=""><br>
e-mail (адрес доставки):<br>
<input name="mail" type=text value=""></div><br>
<img src="captcha/index.php"><br>
Введите символы указаные на картинке:<br>
<input type="text" style="width:100px;" name="simbols"><br><br><br>
<input style="width:100px;" type=submit value="Отправить">
</form></div>
<br></td>
</tr>
</table></div><br><br>
<div align=center><a href="http://www.lala.org/"></a><br>Copyright © 2006-2007<br><img src="http://www.lala.org/count/counter.php" border=0></div>
</body>
Ну здесь как видно есть 3 поля и кнопка отправки данных!
Надеюсь что вы мне расскажите как можно отправить эти данные без захода на страничку,тобеж я делаю программу клиент, но в пост запросах ничего не понимаю!Будьте добры покажите как нужно сделать!
Желательно привести часть кода где при нажатии на кнопку инфа береться из эдитов и передается на сервер!Заранее большое спасибо!
зы.как я понял это нитак сложно,просто я никогда с этим не сталкивался а разобраться сам никак не могу,уже кучу инфы пересмотрел никак не вьеду!
Есче раз спасибо!
Последний раз редактировалось ZirroCool; 18.08.2007 в 19:11..
|
|
|
|
18.08.2007, 19:09
|
|
Участник форума
Регистрация: 09.02.2004
Сообщений: 122
Провел на форуме:
1089794
Репутация:
134
|
|
ZirroCool > Посмотри как выглядит этот POST-запрос при помощи какого-нибудь HTTP-сниффера.
|
|
|
|
18.08.2007, 19:17
|
|
Участник форума
Регистрация: 16.09.2006
Сообщений: 139
Провел на форуме:
513709
Репутация:
144
|
|
Сообщение от Feshh
Оффтоп (извините не удержался)
если ты тот самый ZiroCool который написал червя который заразил 1507 машин то можно аффтограф в ПМ плиз =))
раз уж на то пошло там был ZeroCool!
NetMan,на счет снифера,я никогда им не пользовался!
так что по возможности кодом!
|
|
|
|
18.08.2007, 20:45
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
зирокул
непользовался? так начни пользоваться, со снифа снял пост, впихнул в стринг и через сокет отправил.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
