<![CDATA[delphi4arab منتديات دلفي للعرب - تطوير تطبيقات الجوال Mobile Application Development]]> https://delphi4arab.net/forum/ Wed, 11 Nov 2026 23:06:45 +0000 MyBB <![CDATA[نصائح لاستخدام هاتفك الأندرويد في ترجمة و تنقيح تطبيقات دلفي xe]]> https://delphi4arab.net/forum/showthread.php?tid=12592 Sun, 21 Apr 2024 22:32:18 +0100 piratewar]]> https://delphi4arab.net/forum/showthread.php?tid=12592 https://code-4free.blogspot.com/2024/04/xe.html
ويتبعه درس للتعامل مع إعدادت الهاتف لتمكينه من الاتصال
https://code-4free.blogspot.com/2024/04/2.html]]> https://code-4free.blogspot.com/2024/04/xe.html
ويتبعه درس للتعامل مع إعدادت الهاتف لتمكينه من الاتصال
https://code-4free.blogspot.com/2024/04/2.html]]> <![CDATA[دورة فايرمونكي للموبايل -تم سرقة الحقوق الخاصة بي]]> https://delphi4arab.net/forum/showthread.php?tid=12577 Wed, 03 Apr 2024 01:30:15 +0100 piratewar]]> https://delphi4arab.net/forum/showthread.php?tid=12577 مقدمة
https://youtu.be/yaQgWVWS0nI?si=UBeBRmYLCAvr_6LN
التطوير متعدد المنصات
https://youtu.be/Oe-GpYRRr0I?si=NyQp5g2cC_CuUJ7Z]]> مقدمة
https://youtu.be/yaQgWVWS0nI?si=UBeBRmYLCAvr_6LN
التطوير متعدد المنصات
https://youtu.be/Oe-GpYRRr0I?si=NyQp5g2cC_CuUJ7Z]]> <![CDATA[Audio Processing Class: Record, Play, and Manipulate PCM Data with Ease]]> https://delphi4arab.net/forum/showthread.php?tid=12479 Tue, 19 Dec 2023 23:22:21 +0100 haniid]]> https://delphi4arab.net/forum/showthread.php?tid=12479
قمت بتحويل اخر مثال هنا الى class .. اكثر تنضيما و سهولة فى الاستعمال .

كود :
public     // Constructor and Destructor     constructor Create(ASampleRate, AInChannel, AOutChannel, AFormat: Integer);     destructor Destroy; override;     // Public methods     procedure StopRecording;     procedure StartRecording;     function PlayPartialBuffer(StartPos, EndPos: DWORD): Integer; overload;     function PlayPartialBuffer(Buffer: TBytes): Integer; overload;     function GetHtmlBase64PCM(StartPos, EndPos: DWORD): string;     function GetBase64PCM(StartPos, EndPos: DWORD; AddWavHeader, Compress: Boolean): string;     function GetPartialBuffer(StartPos, EndPos: DWORD; Compress: Boolean = False): TArray<Byte>;     function ClearBuffer: Boolean;     function DecompressBuffer(const Input: TBytes): TBytes;     function CalculateDuration(ARecordedDataLength: Integer): Double;     function LoadFromFile(const FileName: string): TBytes;     procedure SaveToFile(const FileName: string; StartPos, EndPos: DWORD; AddWavHeader: Boolean = True);     function TrimSilence8BitFormat(const AudioData: TBytes): TBytes;     procedure PausePlaying;     procedure ResumePlaying;     // Properties     property IsInitialized: Boolean read FIsInitialized;     property RecordedData: TArray<Byte> read GetRecordedData write SetRecordedData;     property RecordingState: Boolean read GetRecordingState;     property PlayingState: Boolean read GetPlayingSate;     property Duration: Double read GetDuration;     property Volume: Single read GetVolume write SetVolume;     property OnRecordingProgress: TOnRecordingProgress read FOnRecordingProgress write SetOnRecordingProgress;


.rar   AudioPCM.rar (الحجم : 18.66 ك ب / التحميلات : 4) ]]>
قمت بتحويل اخر مثال هنا الى class .. اكثر تنضيما و سهولة فى الاستعمال .

كود :
public     // Constructor and Destructor     constructor Create(ASampleRate, AInChannel, AOutChannel, AFormat: Integer);     destructor Destroy; override;     // Public methods     procedure StopRecording;     procedure StartRecording;     function PlayPartialBuffer(StartPos, EndPos: DWORD): Integer; overload;     function PlayPartialBuffer(Buffer: TBytes): Integer; overload;     function GetHtmlBase64PCM(StartPos, EndPos: DWORD): string;     function GetBase64PCM(StartPos, EndPos: DWORD; AddWavHeader, Compress: Boolean): string;     function GetPartialBuffer(StartPos, EndPos: DWORD; Compress: Boolean = False): TArray<Byte>;     function ClearBuffer: Boolean;     function DecompressBuffer(const Input: TBytes): TBytes;     function CalculateDuration(ARecordedDataLength: Integer): Double;     function LoadFromFile(const FileName: string): TBytes;     procedure SaveToFile(const FileName: string; StartPos, EndPos: DWORD; AddWavHeader: Boolean = True);     function TrimSilence8BitFormat(const AudioData: TBytes): TBytes;     procedure PausePlaying;     procedure ResumePlaying;     // Properties     property IsInitialized: Boolean read FIsInitialized;     property RecordedData: TArray<Byte> read GetRecordedData write SetRecordedData;     property RecordingState: Boolean read GetRecordingState;     property PlayingState: Boolean read GetPlayingSate;     property Duration: Double read GetDuration;     property Volume: Single read GetVolume write SetVolume;     property OnRecordingProgress: TOnRecordingProgress read FOnRecordingProgress write SetOnRecordingProgress;


.rar   AudioPCM.rar (الحجم : 18.66 ك ب / التحميلات : 4) ]]> <![CDATA[Android Record Audio to TIdBytes and play it]]> https://delphi4arab.net/forum/showthread.php?tid=12326 Sun, 18 Jun 2023 23:18:57 +0100 haniid]]> https://delphi4arab.net/forum/showthread.php?tid=12326
محاولة
 تسجيل audio  فى TIdBytes و تشغيله ...
PHP كود :
uses
  Androidapi.JNI.Media,
  Androidapi.Helpers,
  Androidapi.JNIBridge,
  IdGlobal; //indy 

PHP كود :
procedure PlayTIdBytesAudio(TIdBytesAudio: TIdBytes);
var
  Mintrack  : Integer;
  AudioPlay : JAudioTrack;
begin
  Mintrack := TJAudioTrack.JavaClass.getMinBufferSize
                                                      (
                                                        48000,
                                                        TJAudioFormat.JavaClass.CHANNEL_OUT_MONO,
                                                        TJAudioFormat.JavaClass.ENCODING_PCM_16BIT
                                                      );

  if Length(TIdBytesAudio) < Mintrack then Exit;

  AudioPlay:= TJAudioTrack.JavaClass.init
                                         (
                                            TJAudioManager.JavaClass.STREAM_MUSIC,
                                            48000,
                                            TJAudioFormat.JavaClass.CHANNEL_OUT_MONO,
                                            TJAudioFormat.JavaClass.ENCODING_PCM_16BIT,
                                            Length(TIdBytesAudio),
                                            TJAudioTrack.JavaClass.MODE_STREAM
                                         );

  if ((AudioPlay as JAudioTrack).getPlayState <> 3 (* PLAYSTATE_PLAYING *))then
  (AudioPlay as JAudioTrack).play;


  (AudioPlay as JAudioTrack).write(TBytesToTJavaArray(TBytes(TIdBytesAudio)), 0, Length(TIdBytesAudio));
end;


function RecordAudioToTIdBytes(BufferSize: Integer): TIdBytes;
var
   AudioRecorder    : JAudioRecord;
   MinBufferSize    : Integer;
   AudioArray       : TJavaArray<Byte>;
   BytesReaded      : Integer;
   BytesReadedCount : Integer;
   ArrayBytesReaded : TIdBytes;
begin
    MinBufferSize := TJAudioRecord.JavaClass.getMinBufferSize
                                                             (
                                                               48000,
                                                               TJAudioFormat.JavaClass.CHANNEL_IN_MONO,
                                                               TJAudioFormat.JavaClass.ENCODING_PCM_16BIT
                                                             );

    if BufferSize < MinBufferSize then BufferSize := MinBufferSize;

    AudioArray:= TJavaArray<Byte>.Create(BufferSize) ;

    AudioRecorder:= TJAudioRecord.JavaClass.init
                                                (
                                                  TJMediaRecorder_AudioSource.JavaClass.MIC,
                                                  48000,
                                                  TJAudioFormat.JavaClass.CHANNEL_IN_MONO,
                                                  TJAudioFormat.JavaClass.ENCODING_PCM_16BIT,
                                                  BufferSize
                                                );



    (AudioRecorder as JAudioRecord).startRecording;

    BytesReadedCount := 0;

    while (BytesReadedCount < BufferSize) do
    begin
      SetLength(ArrayBytesReaded, 0);
      BytesReaded := (AudioRecorder as JAudioRecord).read(AudioArray, 0, BufferSize);

      Inc(BytesReadedCount, BytesReaded);

      ArrayBytesReaded := TIdBytes(TJavaArrayToTBytes(AudioArray));
      IdGlobal.AppendBytes(Result, ArrayBytesReaded);
    end;

    (AudioRecorder as JAudioRecord).stop;
end; 


PHP كود :
   PlayTIdBytesAudio(RecordAudioToTIdBytes(400000 (* ≈ 4 soconde *))); 
]]>
محاولة
 تسجيل audio  فى TIdBytes و تشغيله ...
PHP كود :
uses
  Androidapi.JNI.Media,
  Androidapi.Helpers,
  Androidapi.JNIBridge,
  IdGlobal; //indy 

PHP كود :
procedure PlayTIdBytesAudio(TIdBytesAudio: TIdBytes);
var
  Mintrack  : Integer;
  AudioPlay : JAudioTrack;
begin
  Mintrack := TJAudioTrack.JavaClass.getMinBufferSize
                                                      (
                                                        48000,
                                                        TJAudioFormat.JavaClass.CHANNEL_OUT_MONO,
                                                        TJAudioFormat.JavaClass.ENCODING_PCM_16BIT
                                                      );

  if Length(TIdBytesAudio) < Mintrack then Exit;

  AudioPlay:= TJAudioTrack.JavaClass.init
                                         (
                                            TJAudioManager.JavaClass.STREAM_MUSIC,
                                            48000,
                                            TJAudioFormat.JavaClass.CHANNEL_OUT_MONO,
                                            TJAudioFormat.JavaClass.ENCODING_PCM_16BIT,
                                            Length(TIdBytesAudio),
                                            TJAudioTrack.JavaClass.MODE_STREAM
                                         );

  if ((AudioPlay as JAudioTrack).getPlayState <> 3 (* PLAYSTATE_PLAYING *))then
  (AudioPlay as JAudioTrack).play;


  (AudioPlay as JAudioTrack).write(TBytesToTJavaArray(TBytes(TIdBytesAudio)), 0, Length(TIdBytesAudio));
end;


function RecordAudioToTIdBytes(BufferSize: Integer): TIdBytes;
var
   AudioRecorder    : JAudioRecord;
   MinBufferSize    : Integer;
   AudioArray       : TJavaArray<Byte>;
   BytesReaded      : Integer;
   BytesReadedCount : Integer;
   ArrayBytesReaded : TIdBytes;
begin
    MinBufferSize := TJAudioRecord.JavaClass.getMinBufferSize
                                                             (
                                                               48000,
                                                               TJAudioFormat.JavaClass.CHANNEL_IN_MONO,
                                                               TJAudioFormat.JavaClass.ENCODING_PCM_16BIT
                                                             );

    if BufferSize < MinBufferSize then BufferSize := MinBufferSize;

    AudioArray:= TJavaArray<Byte>.Create(BufferSize) ;

    AudioRecorder:= TJAudioRecord.JavaClass.init
                                                (
                                                  TJMediaRecorder_AudioSource.JavaClass.MIC,
                                                  48000,
                                                  TJAudioFormat.JavaClass.CHANNEL_IN_MONO,
                                                  TJAudioFormat.JavaClass.ENCODING_PCM_16BIT,
                                                  BufferSize
                                                );



    (AudioRecorder as JAudioRecord).startRecording;

    BytesReadedCount := 0;

    while (BytesReadedCount < BufferSize) do
    begin
      SetLength(ArrayBytesReaded, 0);
      BytesReaded := (AudioRecorder as JAudioRecord).read(AudioArray, 0, BufferSize);

      Inc(BytesReadedCount, BytesReaded);

      ArrayBytesReaded := TIdBytes(TJavaArrayToTBytes(AudioArray));
      IdGlobal.AppendBytes(Result, ArrayBytesReaded);
    end;

    (AudioRecorder as JAudioRecord).stop;
end; 


PHP كود :
   PlayTIdBytesAudio(RecordAudioToTIdBytes(400000 (* ≈ 4 soconde *))); 
]]> <![CDATA[أسبوع التعليم لتطبيقات المبايل لكن باللغة البرتغالية]]> https://delphi4arab.net/forum/showthread.php?tid=11414 Sun, 27 Jun 2021 09:47:47 +0100 أبو معاذ]]> https://delphi4arab.net/forum/showthread.php?tid=11414 هناك قناة على التيليغرام و ايضا على اليوتيوب لشخص برازيلي مهتم لتطبيقات الدلفي للموبايل و الويب.
له عدة دورات لكن باللغة البرتغالية.
سيبدأ قريبا في دروس خاصة لتطبيقات للموبايل من الصفر.
وهذا هو الإعلان عن الدورة 

Opa! Tudo bem por aí
PHP كود :
?

Passando dessa vez por aqui para aquele convite especial...

As inscrições para a próxima Semana Mobile estão abertas.

É um evento 100% online e gratuito onde vamos desenvolver um app para controle de ordens de serviço do absoluto zero.

Inscreva-se gratuitamente ?

https://semanamobile.com.br/inscricao

PS: Me ajuda com uma coisa? Compartilhe essa mensagem nos grupos que participa. 

ربما هناك من يهمه الأمر.
بالتوفيق.
وهذه قناته على اليوتيوب.
كود :
https://youtube.com/c/99Coders
]]> هناك قناة على التيليغرام و ايضا على اليوتيوب لشخص برازيلي مهتم لتطبيقات الدلفي للموبايل و الويب.
له عدة دورات لكن باللغة البرتغالية.
سيبدأ قريبا في دروس خاصة لتطبيقات للموبايل من الصفر.
وهذا هو الإعلان عن الدورة 

Opa! Tudo bem por aí
PHP كود :
?

Passando dessa vez por aqui para aquele convite especial...

As inscrições para a próxima Semana Mobile estão abertas.

É um evento 100% online e gratuito onde vamos desenvolver um app para controle de ordens de serviço do absoluto zero.

Inscreva-se gratuitamente ?

https://semanamobile.com.br/inscricao

PS: Me ajuda com uma coisa? Compartilhe essa mensagem nos grupos que participa. 

ربما هناك من يهمه الأمر.
بالتوفيق.
وهذه قناته على اليوتيوب.
كود :
https://youtube.com/c/99Coders
]]> <![CDATA[لعبة Brick كاملة بالكود سورس]]> https://delphi4arab.net/forum/showthread.php?tid=7167 Sun, 23 Aug 2015 20:39:27 +0100 bouh25]]> https://delphi4arab.net/forum/showthread.php?tid=7167 الصورة

http://www.mrkzgulf.com/do.php?img=36368

.rar   brik.rar (الحجم : 64.53 ك ب / التحميلات : 286) ]]> الصورة

http://www.mrkzgulf.com/do.php?img=36368

.rar   brik.rar (الحجم : 64.53 ك ب / التحميلات : 286) ]]> <![CDATA[مدخل إلى عالم الأندرويد]]> https://delphi4arab.net/forum/showthread.php?tid=6761 Thu, 05 Feb 2015 16:40:50 +0100 مهند الرسيني]]> https://delphi4arab.net/forum/showthread.php?tid=6761
لم اعرف باسكال حتى تعرف على Lazarus .. ربما يخالفني البعض في هذه النقطة Smile
لكن فعلاً عندما كنت على دلفي و XE وأخواتها لم أجد الإجابات الشافية لمعضم أسئلتي
لكن بعد أن إنتقلت إلى لازارس وجدت الكثير من المزايا من اهمها تعدد المنصات
وكذلك التوثيق الخاص بلازارس فعلاً شيء رائع جداً , فعندما ابحث عن إجابة سؤال ما
كل ما علي التوجه إلى الويكيبيدا الخاص بمشروع لازارس , وسأجد الإجابة التي تضع
قدمي على أول خطوة من الطريق .. على كل حال أنا هنا لست اقارن بين لازارس وغيرها

أنا هنا لأفتح موضوع خاص لمن يريد أن ينطلق في البرمجة للهواتف الذكية التي تحمل نظام
أندرويد ليكون مرجعاً لهم وستكون المشاركة من خلال وضع رابط لمقالة أو كتاب أو درس
أو أي شيء له صله في برمجة تطبيقات الأندرويد .

والجميع مدعو للمشاركة وإثراء محتوى هذا الموضوع

ولتنسيق الموضوع أكثر ستكون آلية المشاركة كتالي :
[COLOR="Red"]عنوان الـ مقالة/كتاب/درس :
بيئة التطوير : (لازارس/دلفي/XE..إلخ)
اللغة :عربي/إنجليزي..إلخ
الرابط : (ويفضل دائماً أن يكون بالمرفقات عند الإستطاعة)
[/COLOR]

وشكراً للجميع]]>
لم اعرف باسكال حتى تعرف على Lazarus .. ربما يخالفني البعض في هذه النقطة Smile
لكن فعلاً عندما كنت على دلفي و XE وأخواتها لم أجد الإجابات الشافية لمعضم أسئلتي
لكن بعد أن إنتقلت إلى لازارس وجدت الكثير من المزايا من اهمها تعدد المنصات
وكذلك التوثيق الخاص بلازارس فعلاً شيء رائع جداً , فعندما ابحث عن إجابة سؤال ما
كل ما علي التوجه إلى الويكيبيدا الخاص بمشروع لازارس , وسأجد الإجابة التي تضع
قدمي على أول خطوة من الطريق .. على كل حال أنا هنا لست اقارن بين لازارس وغيرها

أنا هنا لأفتح موضوع خاص لمن يريد أن ينطلق في البرمجة للهواتف الذكية التي تحمل نظام
أندرويد ليكون مرجعاً لهم وستكون المشاركة من خلال وضع رابط لمقالة أو كتاب أو درس
أو أي شيء له صله في برمجة تطبيقات الأندرويد .

والجميع مدعو للمشاركة وإثراء محتوى هذا الموضوع

ولتنسيق الموضوع أكثر ستكون آلية المشاركة كتالي :
[COLOR="Red"]عنوان الـ مقالة/كتاب/درس :
بيئة التطوير : (لازارس/دلفي/XE..إلخ)
اللغة :عربي/إنجليزي..إلخ
الرابط : (ويفضل دائماً أن يكون بالمرفقات عند الإستطاعة)
[/COLOR]

وشكراً للجميع]]>