delphi4arab منتديات دلفي للعرب
الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الاستفادة من خدمة موقع بالواب و جعلها في التطبيق (/showthread.php?tid=7283)

الصفحات: 1 2


الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - wadoud - 12-11-2015

السلام عليكم  ورحمة الله.
اسال هل يمكن الاستفادة من خدمة موقع بالواب مثال
كود :
http://naturalreaders.com/index.html
اي انشاء واجهة تطبيق خاصة بك بالدلفي  و عند الضغط على زر  بلاي. يقرا النص من خلال الموقع . 
باختصار  واجهة تطبيق خاصة بك  و التنفيد يكون عن طريق الموقع دون الحاجة لفتح الموقع .
جزاكم الله خير  ا.


RE: الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - onexite - 13-11-2015

بعد التتبع وجدت

كود :
http://api.naturalreaders.com/v2/tts/?t=%22welcome%22&r=1&s=1&requesttoken=94350e95ced5bcd8ffa311d47eb68a9b



RE: الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - wadoud - 13-11-2015

(13-11-2015, 05:32 PM)onexite كتب : بعد التتبع وجدت
http://api.naturalreaders.com/v2/tts/?t=%22welcom%22&r=1&s=1&requesttoken=94350e95ced5bcd8ffa311d47eb68a9b
اشكرك onexite على ردك الصاروخي ..... Big Grin 
ولكنك فتحت شهيتي اكثر للاستزادة في الموضوع ...
اولا معارفي جد محدودة في هذا المجال  لذلك  رفقا .... هناك سيل من الاسئلة ... Huh
اولا كيف حصلت على الرابط اعلاه ؟ لقد نظرت في كود سورس الصفحة فلم اعثر له على اثر؟
ثانيا  لقد قمت بتغير  welcome و نجح الامر و لكن  المشكلة
. كيف استعمال  ما تفضلت به  في كود دلفي ...؟ ما عندي ولا فكرة ....تغير اللغة - التحكم في السرعة- ولما لا تحميل الصوت في ملف mp3...
إذا وجهتني  قليلا ساحاول  وضع مثال .... 
أشكرك مرة اخرى يا استاذ انت رائع حقا ......


RE: الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - onexite - 14-11-2015

الخدمة متوقفة على معرف (requesttoken)  طريقة الحصول عليه اتبع الرابط التالي
http://api.naturalreaders.com/v2/auth/requesttoken?callback=&appid=pelc790w2bx&appsecret=2ma3jkhafcyscswg8wgk00w0kwsog4s&_=1404048025914
ويكون الجواب من نوع json وعليه عليك استخدام requesttoken في الطلب الثاني
على كل حال لتشغيل الملف افتح netradio في الامثلة المرفقة ل bass
لتغيير اللغة و السرعة غير قيمة r,s من خلال الرابط

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadId: Cardinal;
  const url ='http://api.naturalreaders.com/v2/tts/?t=%22hello%22&r=2&s=1&requesttoken=5f33ef69c95d535be2f63fdff33ff48e';
begin

  StrPCopy
(proxy,ed_ProxyServer.Text); // copy the Servertext to the Proxy array
  if (cthread <> 0) then
    MessageBeep
(0)
  else
    cthread := BeginThread(nil, 0, @OpenURL, PAnsiChar(url), 0, ThreadId);
end; 



RE: الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - wadoud - 19-11-2015

اشكرك كثيرا
الرابط الاول لم يعد يعمل !
ولم افهم  يبدو ان الامر متعلق اكثر بمعرفة html
كنت اود ان توجهني الى مواقع للتعلم  او اذا كان هناك مثال جاهز  
اشكرك على كل حال .


RE: الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - onexite - 22-11-2015

البرنامج + السورس وهو يقوم بتحويل الكتابة الى صوت
وهذا الكود المستخدم

PHP كود :
var
  Form1: TForm1;
  chan: DWORD;
  Handle: THandle;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var 
requesttoken:string;
 Url:AnsiString;
begin
requesttoken
:=IdHTTP1.Get('http://api.naturalreaders.com/v2/auth/requesttoken?callback=&appid=pelc790w2bx&appsecret=2ma3jkhafcyscswg8wgk00w0kwsog4s&_=1404048025914');
requesttoken:=StringReplace(requesttoken,'{"rst":"true","requesttoken":"','',[])  ;
requesttoken:=StringReplace(requesttoken,'"}','',[])  ;


 BASS_StreamFree(chan);
 Url:='http://api.naturalreaders.com/v2/tts/?t="'+Edit1.Text+'"&r=1&s=1&requesttoken='+requesttoken ;
 chan := BASS_StreamCreateURL(PChar (Url), 0, 0, nil, 0);

   if not BASS_ChannelPlay(chan, False) then
          Label4
.caption:='Error playing stream!' + #13#10 + '(error code: ' + IntToStr(BASS_ErrorGetCode) +')';


end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  
if (not BASS_Init(-1, 44100, 0, Handle, nil)) then
  BASS_SetConfig
(BASS_CONFIG_NET_PLAYLIST, 1);

end; 
end


RE: الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - bassem_43 - 23-11-2015

السلام عليكم
بارك الله فيك اخي onexite على البرنامج والسورس
الرابط الاول لا يشتغل على ما اظن
و ممكن تبسط لنا كيف حصلت على هدا الرابط
http://api.naturalreaders.com/v2/auth/requesttoken?callback=&appid=pelc790w2bx&
appsecret=2ma3jkhafcyscswg8wgk00w0kwsog4s&_=1404048025914
وبارك الله فيك


RE: الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - wadoud - 24-11-2015

السلام عليكم
اشكرك اخي onexite نورت عقلي بالمثال السابق ولكن على كل حال هناك سيل من الاسئلة
1 كيف حصلت على الرابط ؟ وهذا هو المهم في رأيي هل هو نوع من القرصنة ؟
2 اين هو او ما هو bass؟؟؟؟
كما تلاحظ انا اجهل تماما التعامل مع المواقع و معارفي محدودة ولكني فهمت الكود الى حد ما
اشكرك على مجهودك وعلى صبرك .


RE: الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - wadoud - 05-08-2016

السلام عليكم
لقد عاودت النظر في الموضوع ولقد أضفت  و تتبعت إعدادات اللغة والسرعة في المثال الذي تفضل به الأخ الكريم onexite والذي ربما لإنشغاله لم يرد على سؤالي
المسألة كيف يمكن الحصول على الرابط أدناه لقد تتبعت كود الصفحة سطرا سطرا و لم أجد له أثرا ، مما جعلني أظن أن هناك برنامج خاص يساعد على ذلك بحثت في قوقل عن خيط ما لكن معارفي شحيحة , هل من مرشد؟
http://api.naturalreaders.com/v2/auth/requesttoken?callback=&appid=pelc790w2bx&
لانه مهم في معرفة requesttoken.


RE: الاستفادة من خدمة موقع بالواب و جعلها في التطبيق - Agmcz - 16-01-2018

(05-08-2016, 05:19 PM)wadoud كتب : السلام عليكم
لقد عاودت النظر في الموضوع ولقد أضفت  و تتبعت إعدادات اللغة والسرعة في المثال الذي تفضل به الأخ الكريم onexite والذي ربما لإنشغاله لم يرد على سؤالي
المسألة كيف يمكن الحصول على الرابط أدناه لقد تتبعت كود الصفحة سطرا سطرا و لم أجد له أثرا ، مما جعلني أظن أن هناك برنامج خاص يساعد على ذلك بحثت في قوقل عن خيط ما لكن معارفي شحيحة , هل من مرشد؟
http://api.naturalreaders.com/v2/auth/requesttoken?callback=&appid=pelc790w2bx&
لانه مهم في معرفة requesttoken.
وعليكم السلام
لقد وجدت الموضوع بالصدفة وانا ابحث في المنتدى
هل مازلت تبحث عن حل؟