تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود تحميل وعرض الصور ( للمبتدئين ) مع طباعة صورة فوق صورة أو كتابة على الصور
#1
السلام عليكم ورحمة الله وبركاته
*- قم بانشاء مشروع ويب جديد ( للمبتدئين)
قم بعمل مجلد في نفس المشروع وسمه
Marked
* قم بانشاء مجلد اخر وسمه
Images
* قم باضافة صورة كعلامة مائية على الصور وسمها
fi.png انقل الصورة الى المجلد Images
المجلد Marked سنحفظ فيه الصورة بعد التميل وطباعة العلامة عليه.

*- اسمح كل ما في كود html للصفحة وانسخ الكود التالي - اسم الصفحة Default
PHP كود :
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!
DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<
html xmlns="http://www.w3.org/1999/xhtml">
<
head id="Head1" runat="server">

    <
title></title>
    <
style type="text/css">

        
#mar1
        
{
            
width927px;
        }
        </
style>
    <
link href="zxy.css" rel="stylesheet" type="text/css" />
</
head>
<
body>
    <
form id="form1" runat="server">
    <
div align="center" dir="rtl">

        <
asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>

        <
asp:FileUpload ID="FileUpload1" runat="server" style="width: 217px" />
        <
asp:Button ID="btnAddImageAsWaterMark" runat="server" 
            
onclick="btnAddImageAsWaterMark_Click" Text="????? ??????" Height="22px" />
    
        <
br />
    <
asp:Image ID="Image1" runat="server" Height="83px" Width="254px" 
            
CssClass="Example_A" />

        <
br />
    
        <
asp:HyperLink ID="hp" runat="server"></asp:HyperLink>

        <
div id="Block1" align="center" class="Example_D" dir="rtl" 
            
style="border-left: 1px solid #D8D7D8; border-right: 1px solid #D8D7D8; border-top: 1px solid #D8D7D8; background-position: 50% bottom; height: auto; background-image: url('images/down.png'); background-repeat: repeat-x; background-color: #FFFFFF; width: 1015px; border-bottom-color: #D8D7D8;">
            <
br />
        <
table id="TabelM" bgcolor="White" cellpadding="0" 
            
cellspacing="0" dir="rtl" 
            
                
style="width: 95%; height: 120px; list-style-position: inside; font-size: 12pt;">
            <
tr>
                <
td align="right" dir="rtl" valign="top" style="text-align: center">
                    <
asp:Label ID="Label6" runat="server" Text="??? ?????"></asp:Label>
<
asp:DataList ID="DataList1" runat="server" RepeatColumns="10" Height="93px" 
            
Width="937px" BackColor="White" style="text-align: center">
        <
FooterStyle HorizontalAlign="Center" VerticalAlign="Middle" />
        <
ItemTemplate>
            &
nbsp;<a href='<%#Eval("FileName") %>' target ="_blank" "><img class ="Example_D" </a="" align="bottom
                src='<%#Eval("
FileName") %>' style=" height50pxwidth50px">
            </img></a>
        </ItemTemplate>
        <HeaderStyle HorizontalAlign="
Center" VerticalAlign="Middle" />
        </asp:DataList>

                </td>
            </tr>
            </table>
                <br />
            </div>

        <br />
        <BODY>

        </div>

    </form>
    <BODY>
        </body>
</html> 

مكان الاستفهامات نص رسالة بالعربي .
نأتي لصفحة الكود
نمسح كل ما في صفحة الكود وننسخ التالي
PHP كود :
Imports System.Collections.Generic
Imports System
.Linq
Imports System
.Web
Imports System
.Web.UI
Imports System
.Web.UI.WebControls
Imports System
.Drawing
Imports System
.Drawing.Drawing2D
Imports System
.IO
Imports System
.Data

Partial 
Public Class _Default
    Inherits System
.Web.UI.Page
    Dim gf 
As String ""
    
Dim filename As String ""

    
Protected Sub Page_Load(ByVal sender As ObjectByVal e As EventArgsHandles Me.Load
        ShoImages
(Server.MapPath("~/marked/"), "marked/")
    
End Sub
    
Protected Sub btnAddImageAsWaterMark_Click(ByVal sender As ObjectByVal e As EventArgsHandles btnAddImageAsWaterMark.Click
        
Static c
        c 
1
        
If 1 Then Exit Sub
        
' gf = "gif" Or gf = "GIF" Or ?????? ??? ????? ???? ????? ???????? 
        gf = Right(FileUpload1.FileName, 3)
        If gf = "png" Or gf = "PNG" Or gf = "jpg" Or gf = "JPG" Or gf = "BMP" Or gf = "bmp" Then
            Dim imageByte As Byte() = FileUpload1.FileBytes
            Dim memStream As New MemoryStream(imageByte)
            Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(memStream)
            Dim Mars As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath("images/fi.png"))
            Dim wdth As Integer = Mars.Width
            Dim higt As Integer = Mars.Height
            Mars.Dispose()
            '
?????? ??????? ??????? ??? ??????
            
Dim waterMarkimage As System.Drawing.Image System.Drawing.Image.FromFile(Server.MapPath("images/fi.png"))
            
Dim opacity As Graphics System.Drawing.Graphics.FromImage(waterMarkimage)
            
Dim imageRect As New Rectangle(00waterMarkimage.WidthwaterMarkimage.Height)
            
Dim brush As Brush = New TextureBrush(waterMarkimageimageRect)
            
opacity.FillRectangle(brushimageRect)
            
opacity.Save()
            
Dim g As Graphics System.Drawing.Graphics.FromImage(img)
            
Dim drawString As [String] = " Ourlab.Net " Chr(169) & Year(Date.Today)
            
'????? ??
            Dim drawFont As New Font("Arial", 10, FontStyle.Bold)
            Dim drawBrush As New SolidBrush(Color.Red)
            '  
Dim drawPoint As New PointF(0, (img.Height wdth) / 2)
            
'  g.DrawString(drawString, drawFont, drawBrush, drawPoint)

            ' 
????? ???? ??????? ???????
            
Dim point As New Point(0img.Height higt)
            
g.DrawImage(waterMarkimagepoint)


            
Dim filename As String Guid.NewGuid().ToString() & "." gf
            img
.Save(Server.MapPath("marked\" & filename))
            opacity.Dispose()
            memStream.Dispose()
            g.Dispose()
            waterMarkimage.Dispose()
            img.Dispose()
            Image1.ImageUrl = ("
marked\" & filename)
            ' ??? ???? ??? ?????
            hp.Text = "
<a href='" & Image1.ImageUrl & "'target=_blank >" & "Click here" & "</a>"
        Else
            Response.Write("
<script>alert(' " & " This file " & FileUpload1.FileName & " not image or bad file " & " ')</script>")
        End If
        ShoImages(Server.MapPath("~/marked/"), "marked/")
    End Sub
    Private Sub ShoImages(ByVal FilePath As String, ByVal ImgDisplayPath As String)

        Dim dt As New DataTable()

        dt.Columns.Add("FileName", GetType(System.String))

        dt.Columns.Add("Size", GetType(System.String))

        Dim dr As DataRow = Nothing

        Dim dir As New System.IO.DirectoryInfo(FilePath)
        For Each fi As System.IO.FileInfo In dir.GetFiles()
            dr = dt.NewRow()

            dr(0) = ImgDisplayPath & fi.Name.ToString()

            dr(1) = fi.Length.ToString("N0")
            ''N0'formats the number with commas

            dt.Rows.Add(dr)
        Next
        '
        DataList1.DataSource = dt

        DataList1.DataBind()

    End Sub

End Class 

اخيرا شغل المشروع وارفع صورة وحاول ان تتفنن وتغير وتحسن من الكود كما تحب
اذا وجدت اخطاء ارجو تنبيهي لها
فالمثال وجدته على صفحات النت وقمت فقط ببعض التعديلات عليه
وفقني الله واياكم لكل خير
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: abulayth , سعود , Amir_alzubidy
#2
بارك الله فيك

يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة: أبو عمر , Amir_alzubidy
#3
اشكرك كثيرا على مرورك يا جدي
Smile
يبدو ان المبرمجين تخطوا طور التعليم والمشاركة والنقاشات
وبقينا نحن طلبة العلم
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: سعود
#4
(20-09-15, 11:04 PM)أبو عمر كتب : اشكرك كثيرا على مرورك يا جدي
Smile
يبدو ان المبرمجين تخطوا طور التعليم والمشاركة والنقاشات
وبقينا نحن طلبة العلم

يمكن اتتهم عروض بالاستثمار وغابوا بناء على شروط منها الانقطاعSmileSmileSmile
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: أبو عمر
#5
كم جميل ان ارى هذه التحفة على الفجوال بيسك 6
نريد مثالا للكتابة على الصور وطباعتها كجزؤ منفصل عن باقي الادوات الموجودة على الفورم Smile
دائما متألق اخي ابو عمر
جزاك الله خير Smile
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تحميل وتنزيل الملفات الى ومن sql server سعود 2 1,262 17-06-14, 02:19 PM
آخر رد: أبو عمر

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


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