+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دلفي للعرب - القسم العام (https://delphi4arab.net/forum/forumdisplay.php?fid=10)
+--- الموضوع : الذكاء الصناعي يعرف باسكال (/showthread.php?tid=12165)
RE: الذكاء الصناعي يعرف باسكال - Delphi4Us - 21-01-2023
امبركاديرو تعلن عن مسابقة لانشاء صور ومناظر عن دلفي بالذكاء الصناعي والجوائز من 500 دولار حتى 50 دولار والمشاركة باي عدد من الصور
كود :
https://blogs.embarcadero.com/delphi-digital-fan-art-and-ai-art-contest/?utm_source=delphi4arab&utm_medium=social&utm_content=Delphi-Digital-Art-Contest&fbclid=IwAR3tDeHJkVrAfcuq8ykIFwPjbveVmaiEPgQGBVadh2kMg3j2d2N0G5Evlgw#What_is_the_theme_of_the_Delphi_Digital_Art_and_AI_Art_Contestالمهم في الموضوع بالنسبة لي كان هو روابط المواقع التي تقدم هذه الخدمة وسجلت في احدها ولم يكن عليه حظر كما بموقع ميدجورني
مثل هذا الموقع
كود :
https://beta.dreamstudio.aiRE: الذكاء الصناعي يعرف باسكال - Delphi4Us - 30-01-2023
كود :
www.useblackbox.io/searchموقع ممتاز واقوى من الاول يعطيك كود باي لغة برمجة بالذكاء الصناعي
على سبيل المثال كود للاتصال بفايربيز
كود :
IdHTTP.Request.CustomHeaders.Values['Authorization:key'] := 'AAAAYsnMbsY:APA91bEjYZK-xxxxxxx......';
IdHTTP.Request.CustomHeaders.Values['Authorization'] := 'key=AAAAYsnMbsY:APA91bEjYZK-xxxxxxx......';
JsonToSend := TStringStream.Create(jsonString, TEncoding.UTF8);
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo,
IdGlobal, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL
{$IFDEF IOS}
, IdSSLOpenSSLHeaders_Static
{$ENDIF}
;
...
begin
IdHTTP := TIdHTTP.Create(nil);
try
IdIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
IdIOHandler.SSLOptions.Method := sslvSSLv23;
IdHTTP.IOHandler := IdIOHandler;
IdHTTP.Request.ContentType := 'application/json';
IdHTTP.Request.Charset := 'UTF-8';
IdHTTP.Request.CustomHeaders.Values['Authorization'] := 'key=AAAAYsnMbsY:APA91bEjYZK-xxxxxxx......';
jsonString := '{"to" : "APA91bFJSdGW_yrX7p_TNKZ4k0OpdXTQM6xdd7BUsslk6zSvZlBmoAnfvyX-nBm4DYY-xxxxx......",' +
'"data" : {' +
'"Nick" : "Teste de Push",' +
'"body" : "Corpo do push",' +
'"Room" : "Apenas um teste"' +
'},}';
JsonToSend := TStringStream.Create(jsonString, TEncoding.UTF8);
try
response := IdHTTP.Post('https://fcm.googleapis.com/fcm/send', JsonToSend);
response := response.Replace(#10, '');
except
on E: EIdHTTPProtocolException do
response := e.ErrorMessage;
end;
Memo1.Lines.Insert(0, response);
finally
IdHTTP.Free;
end;
end;RE: الذكاء الصناعي يعرف باسكال - Delphi2020 - 31-01-2023
السلام عليكم ،
هناك موقع آخر جربت و هو رائع.
https://you.com/
RE: الذكاء الصناعي يعرف باسكال - Delphi4Us - 02-02-2023
(31-01-2023, 07:32 AM)Delphi2020 كتب : السلام عليكم ،
هناك موقع آخر جربت و هو رائع.
https://you.com/
لقد ذكرته في بداية المنشور ولكن هذا الاخير يبدو انه اكثر دقة واوفر
RE: الذكاء الصناعي يعرف باسكال - Delphi2020 - 02-02-2023
(02-02-2023, 03:22 PM)Delphi4Us كتب :(31-01-2023, 07:32 AM)Delphi2020 كتب : السلام عليكم ،
هناك موقع آخر جربت و هو رائع.
https://you.com/
لقد ذكرته في بداية المنشور ولكن هذا الاخير يبدو انه اكثر دقة واوفر
نعم ، هو أكثر دقة ، لأن ChatGPT معلوماته متوقفة عند سنة 2021 ، فمثلا اسأله عن مباريات كأس العالم 2022 فيقول لك أنها لم تبدأ بعد.
RE: الذكاء الصناعي يعرف باسكال - Delphi4Us - 02-02-2023
من لايريد ان يتعب في البحث عن محركات البحث والمواقع التي تستخدم الذكاء الصناعي استخدم هذا الموقع والذي يقوم هو بعرض كل مواقع الذكاء التي تطلبها لمجال معين صور او بحوث او برمجة ويقول لك هل هو مجاني ام تجريبي او تجاري
إقتباس :https://aitools.fyi/
RE: الذكاء الصناعي يعرف باسكال - Delphi4Us - 19-02-2023
البشر يستدعون شيطانا أخر للخروج الى العالم
تابعت في عجالة مقالات تتحدث عن سباق محموم بين الشركات الامريكية والروسية والهندية والصينية وغيرها في مجال الحوسبة الكمومية او التكنولوجيا الكمومية او الكوانتيوم وقيل انها سوف تتحد مع الذكاء الصناعي لتصبح خطرا على البشرية
يقول البعض وسماها باستدعاء الشيطان وحذر منها .
ربما لن نلحق بهذا الزمن ولكن استطيع ان اتخيل ما سيحصل بزمن سوف يعيشه اولادنا واولادكم
ملاحظة : هذه الصور اعطاها لي الذكاء الصناعي عندما طلبت منه تجسيد هذه المشكلة في صورة
وهذا ما يحاول البشر الان ان يستدعونه للخروج الى العالم
نسأل الله السلامة لنا ولكم ولسائر المسلمين
RE: الذكاء الصناعي يعرف باسكال - أبو معاذ - 19-02-2023
هذه أرض الله و ملكه ،
لا و لن يقع فيها إلا ما أراد و ما قدره أن يقع.
RE: الذكاء الصناعي يعرف باسكال - Delphi4Us - 19-02-2023
(19-02-2023, 12:03 PM)أبو معاذ كتب :هذه أرض الله و ملكه ،لا و لن يقع فيها إلا ما أراد و ما قدره أن يقع.
وهذا ما قدره الله للناس فلا يأتي عام إلا والذي بعده شر منه حتى تلقوا ربكم
RE: الذكاء الصناعي يعرف باسكال - Delphi4Us - 14-03-2023
صدور النسخة الرابعة من الذكاء الصناعي وهي اقوى 500 مرة من سابقتها
وفقًا لـ OpenAI فإن الإصدار الجديد يتمتع بالقدرة على تحليل الصور وإنشاء أي نوع من النصوص والاكواد البرمجية بدقة فائقة