Смс отправка.

[Черный Лорд]

Дайте пожайлуста исходник отправки смс. я покапался на форуме,но не один код у меня не заработал.

[ViNT]

Имеется в виду отправка стандартными функциями, или с помощью Lib_sms?

[Черный Лорд]

С основными функциями. Но если не сложно то можешь отправить оба варианта.

[ViNT]

Вроде-бы с Lib_sms так:

if send('sms://+' + SendPhone,'' + TextSMS) <> 1 then SMSError;
while is_sending do 
Delay(100); 
if not successfull then SMSError;

SendPhone- номер телефон, TextSMS- текст сообщения.
А про стандартный метод в хелпе написано.

[odd]

Без библиотеки практически аналогично:

Procedure TryToSendSMS(Number: string, sms_text: string);
begin
	exit := FALSE;
	if not SmsStartSend('sms://' + Number, sms_text) then Halt;
	if exit = false then while SmsIsSending do Delay(100);
	if not SmsWasSuccessfull then Halt;
end;

[Черный Лорд]

А можно исходник, а то че- то не очень у меня с этим.

[ViNT]

Ну так odd и предложил готовый текст процедуры, только вставить код в программу, и все.

[Черный Лорд]

Дело в том, что я ввставляю данну процедуру к себе в программу, а мне ошибка.Может глючит миди.

[ViNT]

Во-первых, какая ошибка, во-вторых, как минимум должна быть объявлена переменная exit типа boolean.

[Черный Лорд]

Я делал так. и все равно ошибка, по этому и задаю вопрос и прошу исходник.А насчет ошибки, то у меня тупо миди он всегда одну и ту же ошибку выдает не понятным текстом.

[ViNT]

А что именно выдает?

[Черный Лорд]

jasfjfjbfg635vsj bj- типа этого только другим шрифтом.

[Xamil]

Hm.. Ocherednoi trojanopisatel'?

[ViNT]

Сообщение от Черный Лорд

jasfjfjbfg635vsj bj- типа этого только другим шрифтом.

Значит, похоже проблема с кодировкой, это уже от мобилы зависит.

Сообщение от Xamil

Hm.. Ocherednoi trojanopisatel'?

В смысле?

[Xamil]

V samom prjamom.
1. Navykami v programmirovanii ne obladaet
2. Ego interesuet otpravka sms, i ja somnevajus', chto v ego programme budet eshe kakoi-to funkcional..
Chernyi Lord, sms trojancheg pishesh? Esli net, to shto(mozhet ja i oshibajus)?
P.S. Zvinjaite za translit, kompa shas net rjadom, a na forume problemy s kodirovkoi...