Avaphi
2010-05-14 14:15:19
Of proggies ! What do you think?
2010-05-14 14:15:19
2010-05-14 15:52:56
2010-05-14 16:09:08
2010-05-14 16:10:00
2010-05-14 16:11:45
2010-05-14 16:11:46
2010-05-14 16:20:09
Procedure WaitForResponse(c : Integer);
var s : String;
begin
repeat
if (ReadConnectionData(c, s)) then
begin
Wait(50);
end else
begin
Writeln('Connection error');
Exit;
end;
until(s<>'')or(not IsConnectionOpen(c));
end;
Procedure SendEmail(smtpserver, frommail, tomail, subject, data, : String);
var c : Integer;
begin
c := OpenConnection(smtpserver, 25, 1000);
WaitForResponse(c);
SendConnectionData(c, 'HELO me' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'MAIL FROM: ' + frommail + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'RCPT TO: <' + tomail + '>' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'DATA' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'Subject: ' + subject + #13#10#13#10);
SendConnectionData(c, data + #13#10);
SendConnectionData(c, '.' + #13#10);
WaitForResponse(c);
end;SendEmail('smtp.isp.net', 'youremail@whatever.com', 'yourphone#@whatever.com', 'test', 'testing');SendEmail('smtp.windstream.net', 'Illkillutill@live.com', 'my#@vtext.com', 'test', 'testing');2010-05-14 16:34:33
2010-05-14 16:37:25
From: noideaDidn't work for me :(
Just setup an email thing (Trilez's) and have it send to your sms number. number@place
here are the addresses.
http://www.hurt911.org/investigation/sms-text-message-address.html
2010-05-14 16:42:46
2010-05-14 17:23:13
PostHTTPFormData('http://www.pixdrop.com/', ['group1', 'to', 'MAX_FILE_SIZE', 'genit'], ['Verizon', 'phonenumber', '200000', 'Send Your Picture Message'], ['userfile'], ['filepath'], ['image/png']);That doesn't work, but I would guess it would with a little more work
2010-05-14 17:54:07
From: Illkillutill
Use what i posted zytex :P
stmp is the way to go imho :p
Edit: wouldn't all we need is a site that can send pic message like pixdrop.com?
Successfully compiled (33 ms)
Connection error
Connection error
Connection error
Connection error
Connection error
Connection error
Successfully executed:'(Procedure WaitForResponse(c : Integer);
var s : String;
begin
repeat
if (ReadConnectionData(c, s)) then
begin
Wait(50);
end else
begin
Writeln('Connection error');
Exit;
end;
until(s<>'')or(not IsConnectionOpen(c));
end;
Procedure SendEmail(smtpserver, frommail, tomail, subject, data : String);
var c : Integer;
begin
c := OpenConnection(smtpserver, 25, 1000);
WaitForResponse(c);
SendConnectionData(c, 'HELO me' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'MAIL FROM: ' + frommail + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'RCPT TO: <' + tomail + '>' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'DATA' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'Subject: ' + subject + #13#10#13#10);
SendConnectionData(c, data + #13#10);
SendConnectionData(c, '.' + #13#10);
WaitForResponse(c);
end;
begin // Edited out my phone
SendEmail('smtp.windstream.net', 'xxxxxxxx@sms.netcom.no', 'axel_sa@hotmail.com', 'test', 'testing');
end.
2010-05-14 20:49:36
2010-05-14 21:27:23
2010-05-14 22:06:37
2010-05-14 22:32:39
2010-05-14 22:43:36
2010-05-23 19:26:37
2010-05-23 22:45:07
2010-05-24 09:40:53
From: Zyt3x
:'(Successfully compiled (33 ms)
Connection error
Connection error
Connection error
Connection error
Connection error
Connection error
Successfully executed
using this:Procedure WaitForResponse(c : Integer);
var s : String;
begin
repeat
if (ReadConnectionData(c, s)) then
begin
Wait(50);
end else
begin
Writeln('Connection error');
Exit;
end;
until(s<>'')or(not IsConnectionOpen(c));
end;
Procedure SendEmail(smtpserver, frommail, tomail, subject, data : String);
var c : Integer;
begin
c := OpenConnection(smtpserver, 25, 1000);
WaitForResponse(c);
SendConnectionData(c, 'HELO me' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'MAIL FROM: ' + frommail + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'RCPT TO: <' + tomail + '>' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'DATA' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'Subject: ' + subject + #13#10#13#10);
SendConnectionData(c, data + #13#10);
SendConnectionData(c, '.' + #13#10);
WaitForResponse(c);
end;
begin // Edited out my phone
SendEmail('smtp.windstream.net', 'xxxxxxxx@sms.netcom.no', 'axel_sa@hotmail.com', 'test', 'testing');
end.
2010-06-02 19:48:20
From: Smartzkid
That would be a little… slow..
2010-06-02 21:28:12
2010-06-02 21:42:58
2010-06-02 22:07:35
From: i luffs yeww
^ Takes a few seconds for me. 2-5, usually.
2010-06-03 00:53:46
From: i luffs yeww
^ Takes a few seconds for me. 2-5, usually.
2010-06-03 22:35:01
2010-06-16 16:43:29