Sms prez delphi
7 отговора
385 прегледа
Sms prez delphi
Ako nqkoy mnoje da mi kaji kak da izpratq sms ot programa na delphi molq da mi kaje.
Blagodarq predwaritelno.
Blagodarq predwaritelno.
Re: Sms prez delphi
ami ne stava tolkova lesno.
trqbva ti SMS gateway. ama te veche ne sa bezplatni.
mojesh da prashtash kato email to sms (mai).
ama ne moga da ti dam poveche informaciq.
I az imah meraci ama se okaza dosta trudno.
mislq che bez da skliuchish dogovori ili da si plashtash veche nqma vyzmojnost.
Go on, prove me wrong. Destroy the fabric of the universe. See if I care.
trqbva ti SMS gateway. ama te veche ne sa bezplatni.
mojesh da prashtash kato email to sms (mai).
ama ne moga da ti dam poveche informaciq.
I az imah meraci ama se okaza dosta trudno.
mislq che bez da skliuchish dogovori ili da si plashtash veche nqma vyzmojnost.
Go on, prove me wrong. Destroy the fabric of the universe. See if I care.
Re: Sms prez delphi
Да речем така като e-mail do nomer@sms.mtel.net (35988xxxxxx@sms.mtel.net) Копирам от стара програмка, но е видно за какво става въпрос).
В случая става въпрос за смс до абонат на МТел.
uses
NMsmtp;
var
NM: TNMSMTP;
s: string;
begin
try
NM:= TNMSMTP.Create(Self);
with NM do
begin
Host:= SMTPServer;{tyk pishesh nqkakyw SMTP server exmple:'mail.solo.bg'}
PostMessage.ToAddress.Clear;
s:='359'+'88xxxxxx'+'@sms.mtel.net';
PostMessage.ToAddress.Add(s);
PostMessage.FromAddress:= 'Address';//nqkakyw string bez interwali
PostMessage.FromName:= From_; // pishesh si imeto
PostMessage.Body.Text:= Body_;// samiq msg
Connect;
SendMail;
Disconnect;
Free;
end;
Result:= true;
except
on E: exception do
begin
Result:= false;
NM.Disconnect;
NM.Free;
ShowMessage('Error001: '+e.Message);
end;
end;
end;
Видях да язди през реки, те седем са на брой...
В случая става въпрос за смс до абонат на МТел.
uses
NMsmtp;
var
NM: TNMSMTP;
s: string;
begin
try
NM:= TNMSMTP.Create(Self);
with NM do
begin
Host:= SMTPServer;{tyk pishesh nqkakyw SMTP server exmple:'mail.solo.bg'}
PostMessage.ToAddress.Clear;
s:='359'+'88xxxxxx'+'@sms.mtel.net';
PostMessage.ToAddress.Add(s);
PostMessage.FromAddress:= 'Address';//nqkakyw string bez interwali
PostMessage.FromName:= From_; // pishesh si imeto
PostMessage.Body.Text:= Body_;// samiq msg
Connect;
SendMail;
Disconnect;
Free;
end;
Result:= true;
except
on E: exception do
begin
Result:= false;
NM.Disconnect;
NM.Free;
ShowMessage('Error001: '+e.Message);
end;
end;
end;
Видях да язди през реки, те седем са на брой...
Re: Sms prez delphi
mail.solo.bg nqma li da dade Relay greshka (che ne mojesh da prashtash taka prez toq server)?
Moje li da se svurje napravo s sms.mtel.net?
by Wise Guy
[email protected]
Moje li da se svurje napravo s sms.mtel.net?
by Wise Guy
[email protected]
Re: Sms prez delphi
w moq sluchaj ne (s tehen account sym), napisah 'mail.solo.net' za primer, moje da si polzwash smtp-to prez koeto si prashtash poshtata
Видях да язди през реки, те седем са на брой...
Видях да язди през реки, те седем са на брой...
Re: Sms prez delphi
Би могло да стане чрез HTML. Не съм го пробвал. Иначе с SMTP (e-mail to SMS) работи. Но съобщението задължително трябва да е в Plain text.
eto:
otidi na [линк]
tam e tova koeto ti trebva. az go polzvam ot sredata na 2000 dosega i raboti bezuprechno. za syjalenie e trial a ne moga da nameria crack...
tam e tova koeto ti trebva. az go polzvam ot sredata na 2000 dosega i raboti bezuprechno. za syjalenie e trial a ne moga da nameria crack...