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

الصفحات : 1 2

السلام عليكم ورحمة الله.
اسال هل يمكن الاستفادة من خدمة موقع بالواب مثال

كود :
http://naturalreaders.com/index.html

اي انشاء واجهة تطبيق خاصة بك بالدلفي و عند الضغط على زر بلاي. يقرا النص من خلال الموقع .
باختصار واجهة تطبيق خاصة بك و التنفيد يكون عن طريق الموقع دون الحاجة لفتح الموقع .
جزاكم الله خير ا.

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

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

(13-11-2015, 05:32 PM)onexite كتب : [ -> ]بعد التتبع وجدت
http://api.naturalreaders.com/v2/tts/?t=...d47eb68a9b

اشكرك onexite على ردك الصاروخي ..... Big Grin

ولكنك فتحت شهيتي اكثر للاستزادة في الموضوع ...
اولا معارفي جد محدودة في هذا المجال لذلك رفقا .... هناك سيل من الاسئلة ... Huh

اولا كيف حصلت على الرابط اعلاه ؟ لقد نظرت في كود سورس الصفحة فلم اعثر له على اثر؟
ثانيا لقد قمت بتغير welcome و نجح الامر و لكن المشكلة
. كيف استعمال ما تفضلت به في كود دلفي ...؟ ما عندي ولا فكرة ....تغير اللغة - التحكم في السرعة- ولما لا تحميل الصوت في ملف mp3...
إذا وجهتني قليلا ساحاول وضع مثال ....
أشكرك مرة اخرى يا استاذ انت رائع حقا ......

الخدمة متوقفة على معرف (requesttoken) طريقة الحصول عليه اتبع الرابط التالي
http://api.naturalreaders.com/v2/auth/re...4048025914
ويكون الجواب من نوع 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; 

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

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

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

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

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

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

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

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

الصفحات : 1 2

wadoud

onexite

wadoud

onexite

wadoud

onexite

bassem_43

wadoud

wadoud

Agmcz