delphi4arab منتديات دلفي للعرب

السلام عليكم
كيف ارسال sms ببرنامج الدلفي والهاتف النقال
أو اجراء مكالمات
وشكرا

وعليكم السلام ورحمة الله

تقصد ربط جهاز الكمبيوتر بالهاتف النقال عبر احد المنافذ
ثم ارسال الاوامر من برنامج الى الهاتف ؟

ان نعم ذلك يشبه التعامل مع اي شيئ عبر احد المنافذ
يمكن استخدام احد المكونات مثلComPort المجانية أو التجارية nRcomm

كود :
http://sourceforge.net/projects/comport/
http://deepsoftware.ru/nrcomm/

ايضا تحتاج لمعرفة كيفية عمل الهاتف النقال و هنا افصد بروتوكول الربط فهذا يختلف من جهاز لأخر

السلام عليكم
وجدت برامج (ملف تنفيذي) وتعمل مع نوع واحد وهو سوني ايريكسون k750 k310 .....
اذا كانت لديك تجربة
أو أي كود سورس ابلغني به
وشــكرا

السلام عليكم
وجدت برامج (ملف تنفيذي) وتعمل مع نوع واحد وهو سوني ايريكسون k750 k310 .....
اذا كانت لديك تجربة
أو أي كود سورس ابلغني به
وشــكرا

السلام عليكم
أفدنا بالبرنامج يا اخي ..

قد سبق و تحدث احد الأعضاء عن مكونات البورت .... قمت بتحميلها لكن بدتلي صعبة في التعامل .... تفضلوا الروابط للتحميل

كود :
كود:

http://sourceforge.net/projects/comport/
http://deepsoftware.ru/nrcomm/

و لهذا سيسرنا لو يتفضل احد بتقديم شرح بسيط

وعليكم السلام ورحمة الله
لن أزيد على ما قال الأستاذ عبد العزيز
غير بعض التفاصيل التي لا يمكن أن تجدها إلا عند مصنع الجهاز الذي تود الاتصال به
هناك مكتبة SMS3ASuiteLib شهيرة للتخاطب مع الجوالات (ابحث عن ترجمتها بدلفي)
مكتبة NokiaCLMessaging مخصصة للتخاطب مع نوكيا
جرب استحضار مكتبة النظام NokiaCLMessaging لتحصل على NokiaCLMessaging_TLB.pas
هنا مثال يدعي صاحبه أنه يعمل 100% مع Nokia 6310i , PC Connectivity SDK 3.0 and Delphi 7

PHP كود :
unit fMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActiveX, StdCtrls, OleServer, NokiaCLMessaging_TLB, ComObj,
ExtCtrls;

type
TSMSEventSink = class;

TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
FSink : TSMSEventSink;
FConnection : LongInt;
FMessage : IMessage;
public
{ Public declarations }
procedure MessageReceived(const pIShortMessageItem: IShortMessageItem);
end;

TSMSEventSink = class(TInterfacedObject, IDispatch, IShortMsgNotify)
private
function GetTypeInfoCount(out Count: integer): HResult; stdcall;
function GetTypeInfo(Index, LocaleID: integer; out TypeInfo): HResult; stdcall;
function GetIDsOfNames( const IID: TGUID; Names: Pointer;
NameCount, LocaleID: integer;
DispIDs: Pointer ): HResult; stdcall;
function Invoke( DispID: integer; const IID: TGUID; LocaleID: integer;
Flags: Word; var Params; VarResult, ExcepInfo,
ArgErr: Pointer): HResult; stdcall;
// ISMSReceiveNotify
function SMSMemoryFull: HResult; stdcall;
function SMSDeleted(SMSMemory: ShortMessageMemory; FolderID: Byte; Location: Smallint): HResult; stdcall;
function CBMessageReceived(var ppIGSMCellBroadcast: IGSMCellBroadcast): HResult; stdcall;
function CellInfoDisplayChanged(CellInfoDisplayStatus: WordBool): HResult; stdcall;
function MessageReceived(SMSMemory: ShortMessageMemory; FolderID: Byte; Location: Smallint;
const pIShortMessageItem: IShortMessageItem): HResult; stdcall;

protected
FNotifyForm: TForm1;
procedure SetNotifyForm(const Value: TForm1);
public
property NotifyForm : TForm1 read FNotifyForm write SetNotifyForm;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TSMSEventSink }

function TSMSEventSink.GetIDsOfNames(const IID: TGUID; Names: Pointer;
NameCount, LocaleID: integer; DispIDs: Pointer): HResult;
begin
Result := E_NOTIMPL;
end;

function TSMSEventSink.GetTypeInfo(Index, LocaleID: integer;
out TypeInfo): HResult;
begin
Result := E_NOTIMPL;
pointer (TypeInfo) := NIL;
end;

function TSMSEventSink.GetTypeInfoCount(out Count: integer): HResult;
begin
Result := E_NOTIMPL;
Count := 0;
end;

function TSMSEventSink.Invoke(DispID: integer; const IID: TGUID;
LocaleID: integer; Flags: Word; var Params; VarResult, ExcepInfo,
ArgErr: Pointer): HResult;
begin
inherited;
Result := S_OK;
end;

procedure TSMSEventSink.SetNotifyForm(const Value: TForm1);
begin
FNotifyForm := Value;
end;

function TSMSEventSink.SMSDeleted(SMSMemory: ShortMessageMemory; FolderID: Byte; Location: Smallint): HResult;
begin
// not implement
Result := S_OK;
end;
function TSMSEventSink.CBMessageReceived(var ppIGSMCellBroadcast: IGSMCellBroadcast): HResult;
begin
// not implement
Result := S_OK;
end;
function TSMSEventSink.CellInfoDisplayChanged(CellInfoDisplayStatus: WordBool): HResult;
begin
// not implement
Result := S_OK;
end;


function TSMSEventSink.MessageReceived(SMSMemory: ShortMessageMemory; FolderID: Byte; Location: Smallint;
const pIShortMessageItem: IShortMessageItem): HResult;
begin
if Assigned(FNotifyForm) then
FNotifyForm.MessageReceived(pIShortMessageItem);
Result := S_OK;
end;

function TSMSEventSink.SMSMemoryFull: HResult;
begin
// Not implemented
Result := S_OK;
end;

{ TForm1 }

procedure TForm1.MessageReceived(const pIShortMessageItem: IShortMessageItem);
var
serviceCenterAddress, recipientAddress, originatorAddress, messageText : WideString;
sendTime,dischargeTime: TDateTime;
smsStatus, messageReference: Byte;
msgType: TOleEnum;
pVal: IInterface;
messageItem: IGSMDeliver;
messageStatus: IGSMStatusReport;
begin
OleCheck(pIShortMessageItem.Get_type_(msgType));
OleCheck(pIShortMessageItem.Get_TypeProperties(pVal));
case msgType of
SHORTMESSAGE_TYPE_GSM_DELIVER:
begin
messageItem:=pVal as IGSMDeliver;
with messageItem do begin
Get_OriginatorAddress(originatorAddress);
Get_TimeStamp(sendTime);
Get_Message(messageText);
end;
Memo1.Lines.Add('Originator address: '+originatorAddress+' send time: '+DateTimeToStr(sendTime)+' message text: '+messageText);
end;
SHORTMESSAGE_TYPE_GSM_STATUS_REPORT:
begin
messageStatus:=pVal as IGSMStatusReport;
with messageStatus do begin
Get_RecipientAddress(recipientAddress);
Get_ServiceCenterAddress(serviceCenterAddress);
Get_DischargeTime(dischargeTime);
Get_SMSStatus(smsStatus);
Get_MessageReference(messageReference);
end;
Memo1.Lines.Add('Recipient address: '+recipientAddress+' Service Center Address: '+serviceCenterAddress+' discharge time: '+DateTimeToStr(sendTime)+' sms status: '+intToStr(smsStatus)+' message reference: '+intToStr(messageReference));
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// connect to the phone
FMessage := CoShortMsgAdapter.Create;

// create our event sink
FSink := TSMSEventSink.Create;
FSink.NotifyForm := Self;

// hook up our event sink
InterfaceConnect( FMessage, // Event source
IID_IShortMsgNotify, // IID of the event interface
FSink, // Event sink
FConnection ); // Reference parameter

OleCheck(FMessage.EnableNotifications);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
OleCheck(FMessage.DisableNotifications);
InterfaceDisconnect( FSink, // Event source
IID_IShortMsgNotify, // IID of the event interface
FConnection ); // Reference parameter
end;

end. 

المصدر من مجتمع نوكيا:

كود :
http://www.developer.nokia.com/Community/Discussion/showthread.php?43185-ShortMsgReceived-Delphi

مكونات أخرى تجارية TOxygenSMS

كود :
http://www.oxygensoftware.com/en//products/tsms/

بالتوفيق.

السلام عليكم
عيدكم مبارك وكل عام وأنتم بخير
وأخيرا وجدت الطريقة لربط الهاتف النقال مع برنامج دلفي
وذلك باستعمال هاتف يقبل أوامر AT Command (هواتف سوني اريكسون K xxx)
يتم ربط البرنامج باستخدام comport، ويجب كذلك تثبيت driver usb الخاص بالنقال
بعد الاتصال يتم ارسال أوامر AT إلى النقال وهو بدوره يرجع لك اجابات
وبهذا الاتصال تستطيع ارسال الرسائل القصيرة (لم أجربها بعد) استعلام الرصيد والفليكسي (مجربة)
وان شاء الله سوف أضع برنامج مثال يوضح بعض الأساسيات
وشكرا
والسلام عليكم

باستخدام مكتبة nrcom تستطيع ارسال اوامر ِAT الى الجوال واجراء اتصال وارسال رسالة ومعرفة معلومات عن الجهاز
لكن واجهتني مشكلة بالغة العربية اذ تظهر بشكل رموز من لديه فكرة

كود :
http://deepsoftware.ru/nrcomm/

1- أهم أوامر المكالمات الهاتفية
ATA أمر الرد على مكالمة
ATD أمر إجراء مكالمة
ATH أمر تعليق مكالمة

2- أهم أوامر التعامل مع رسائل SMS
AT+CSMS لاختيار خدمة الرسائل
AT+CPMS ذاكرة الرسائل المفضلة
AT+CMGR لقرائة رسالة
AT+CMGS لإرسال رسالة
AT+CMGW لكتابة رسالة إلى ذاكرة الهاتف
AT+CMGD لحذف رسالة

الاخوة الافاضل حياكم الله
كيف يمكن تنفيذ هذا
وقد جربت مواقع كثيرة ولم ينجح واحد في ارسال رسالة عبر النت
هل ما تفضلتم قيد التطوير
ام تنفذ فعلا
اودا افادتي ووضع مايثبت
حتى تتضح المسئلة
تحياتي

TOxygenSMS Component
Main features:
Supports Nokia 3210, 3310, 3330, 3390, 3350, 3410, 3510, 5110, 5130, 5190, 5210, 6110, 6130, 6150, 6190, 6210, 6250, 6310, 6310i, 6510, 7110, 7190, 8210, 8290, 8250, 8310, 8390, 8850, 8855, 8890, 8910 phones.
Works with cable or IR-links.
Detects phone model automatically.
Allows to send SMS messages through any SMS centre.
You are able send and receive text, Unicode and picture messages.
Sends flashing messages, ringtones, operator and CLI logos.
Allows to delete messages and reports automatically as they come.
Allows to get inbox total and busy count, read and delete messages from SMS storage.
Allows to get variable phone parameters: IMEI, model, SMSCenter phone number, Hardware/Software revision and date, Battery and Signal level.
Gives an opportunity to read add, update, delete calendar events.
Gets calendar events total count and their locations in the phone.
Works under Borland Delphi 3,4,5,6,7 and Borland C++ Builder 5.

TOxygenSMS component works under Microsoft Windows 95, 98, NT and 2000 operating systems family and supports the following Nokia GSM phones:
SMS section: 3210, 3310, 3330, 3390, 3350, 3410, 3510, 5110, 5130, 5190, 5210, 6110, 6130, 6150, 6190, 6210, 6250, 6310, 6310i, 6510, 7110, 7190, 8210, 8290, 8250, 8310, 8390, 8850, 8855, 8890, 8910;
Calendar section: 6210, 6250, 7110, 7160, 7190.

[صورة: picture0002m.jpg]

كود :
http://www.oxygensoftware.com/download/download.asp?File=tsms26.zip
http://www.oxygensoftware.ru/download/download.asp?File=tsms26.zip

nebchadelphi

محمد عبد العزيز

nebchadelphi

wadoud

karamofweb

kachwahed

nebchadelphi

somarammar

cargem

cargem