تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل من سائل فاجيبه
#21
السلام عليكم


كيف افتح نفس الفورم اكثر من مرة.



[url=http://vb4arb.com/vb/showthread.php?tid=17507&page=2][/url]
الرد }}}
تم الشكر بواسطة: asemshahen5
#22
وعليكم السلام ورحمة الله

اخ سندباد تعلن عن متغير يشير للنموذج

كود :
var
frm2:Tform2;

وبعدها تقوم بانشاء النموذج في الحدث النقر على الزر


كود :
frm2:=Tform2.Create(nil);
frm2.Show

حيث المتغير يشير الى الوحدة فالنموذج اسمه Form2 واسم الوحدة الخاصة به TForm2 
الان كلما نقرت على الزر ظهر نموذج جديد
لاتنسى قتل النموذج في الحدث OnClose

كود :
Self.free;

بالتوفيق للجميع

يمكنك ايضا مطالعة الامثلة التي مع دلفي
من القائمة  file تم New تم اختر Other

من النافذة التي ستظهر أختر DelphiProjects ستجد مشاريع جاهزة MDI Application او SDI Application
جربهم فيهم ما تطلب ايضا
الرد }}}
تم الشكر بواسطة: asemshahen5 , sendbad100
#23
(17-07-19, 06:43 PM)viv كتب :


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

هل من شئ لا تفهمونه ..؟
هل عندكم سؤال ...؟
هل لديكم اي شئ تريدون ان اقدمه ...؟

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

هذا للعلم فمن يدري ربما لا نلتقي مرة أخرى .
رحمكم الله ورحم أبائكم ورحم صاحب هذا المكان الذي جمعنا فيه معا اينما كان
وجعل كل مانقدم استغفارا له وحسنات تلحقه في مكان ربما هو احوج ما يكون فيه لاي حسنة .
وغفر الله للمؤمنين والمؤمنات والمسلمين والمسلمات الاحياء منهم والاموات
السلام عليكم 
لك كل الاحترام اخونا و بارك الله فيك .
مبرمج جديد اود تحويل كود لاخينا trakttor من vb الى الدلفي .
بوركت 

PHP كود :
Imports System.Net
Imports System
.IO
Imports System
.Text.RegularExpressions
Imports System
.Text
Imports System
.Threading

Public Class Form1
    Private cookies 
As CookieContainer = New CookieContainer
    Dim client 
As New WebClient
    Public PIC 
As String """large"":""(.*?)"""
 
   Dim nom As String """first"":""(.*?)"",""last"":""(.*?)"""
 
   Dim Pitter As String """status"":""(.*?)""|""username"":""(.*?)""|""password"":""(.*?)""|""max_connections"":""(.*?)""|""active_cons"":""(.*?)""|""allowed_output_formats"":""(.*?)""|""max_connections"":""(.*?)""|""server_info"":""(.*?)""|""categories"":""(.*?)""|""dob"":""(.*?)"""

 
   Public Sub New()
 
       InitializeComponent()
 
       Control.CheckForIllegalCrossThreadCalls False
    End Sub

    Public Sub GetID
()
 
       Try
            Dim Code 
As String
            Code 
TextBox1.Text
            Code 
Code.Replace("get.php""panel_api.php")

 
           Dim request As HttpWebRequest DirectCast(WebRequest.Create(Code), HttpWebRequest)
 
           request.Method "GET"
 
           request.CookieContainer Me.cookies
            request
.UserAgent "Mozilla/5.0 (Windows NT 6.1; rv:47.0) Gecko/20100101 Firefox/47.0"
 
           request.ContentType "application/x-www-form-urlencoded"
 
           Dim reader As New StreamReader(request.GetResponse.GetResponseStreamEncoding.UTF8)
 
           Dim input As String reader.ReadToEnd
            Dim I 
As String """dob"":""(.*?)"""
 
           For Each p As ListViewItem In LV1.Items
                Dim F 
As ListView LV1
                Dim match 
As Match Regex.Match(inputPitter.Split("|")(p.Index), RegexOptions.IgnoreCase)
 
               p.SubItems.Add(match.Groups(1).Value.Trim)

 
           Next

        Catch ex 
As Exception

        End 
Try
 
   End Sub
    Public Sub ResetItems
()
 
       On Error Resume Next
        LV1
.Items.Clear()
 
       LV1.Items.Add("Status")
 
       LV1.Items.Add("Username")
 
       LV1.Items.Add("Password")
 
       LV1.Items.Add("Maximum Connections")
 
       LV1.Items.Add("Active Connections")
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Application
.DoEvents()
 
       ResetItems()
 
       Dim trakktour As New Thread(AddressOf GetID)
 
       trakktour.IsBackground True
        trakktour
.Start()

 
   End Sub

End 
Class 
الرد }}}
تم الشكر بواسطة: viv , asemshahen5
#24
بالنسبة للتعامل مع الـ HttpWebRequest والانترنت انا لم اخوض فيه من قبل .

ولكن يمكن ان يفيدك هذا الموضوع او يعطيك رأس خيط والمواضيع الطرفية التي معه

http://docwiki.embarcadero.com/CodeExamp...t_(Delphi)
الرد }}}
تم الشكر بواسطة: samir28 , asemshahen5
#25
(27-08-19, 03:05 PM)viv كتب : بالنسبة للتعامل مع الـ HttpWebRequest والانترنت انا لم اخوض فيه من قبل .

ولكن يمكن ان يفيدك هذا الموضوع او يعطيك رأس خيط والمواضيع الطرفية التي معه

http://docwiki.embarcadero.com/CodeExamp...t_(Delphi)

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

عفوا على الازعاج
الرابط
https://mega.nz/#!wIM11aCY!c-zQosJdZ0Rz2...EhxT8ND-yc
الرد }}}
تم الشكر بواسطة: asemshahen5
#26
لم افهم منه شئ ويحتاج الى وقت وتحليل
لاحظت انه معمول في موقع Delphi4arab
كنت اريد ان اخبرك وانصحك ان تتوجه الى هناك منذ البداية لانهم متخصصين في امور كهذه ولكن حذفت التعليق هذا في اخر الامر
والان بعد ان عاينت المثال انصحك بالتوجه الى هناك وطرح المثال
الرد }}}
تم الشكر بواسطة: asemshahen5
#27
(27-08-19, 08:55 PM)viv كتب : لم افهم منه شئ ويحتاج الى وقت وتحليل
لاحظت انه معمول في موقع Delphi4arab
كنت اريد ان اخبرك وانصحك ان تتوجه الى هناك منذ البداية لانهم متخصصين في امور كهذه ولكن حذفت التعليق هذا في اخر الامر
والان بعد ان عاينت المثال انصحك بالتوجه الى هناك وطرح المثال

نعم أخي الموضوع من الموقع .
شكرا على التواصل .
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5 , viv


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم