17-06-14, 02:36 PM
السلام عليكم ورحمة الله وبركاته
*- قم بانشاء مشروع ويب جديد ( للمبتدئين)
قم بعمل مجلد في نفس المشروع وسمه
Marked
* قم بانشاء مجلد اخر وسمه
Images
* قم باضافة صورة كعلامة مائية على الصور وسمها
fi.png انقل الصورة الى المجلد Images
المجلد Marked سنحفظ فيه الصورة بعد التميل وطباعة العلامة عليه.
*- اسمح كل ما في كود html للصفحة وانسخ الكود التالي - اسم الصفحة Default
مكان الاستفهامات نص رسالة بالعربي .
نأتي لصفحة الكود
نمسح كل ما في صفحة الكود وننسخ التالي
اخيرا شغل المشروع وارفع صورة وحاول ان تتفنن وتغير وتحسن من الكود كما تحب
اذا وجدت اخطاء ارجو تنبيهي لها
فالمثال وجدته على صفحات النت وقمت فقط ببعض التعديلات عليه
وفقني الله واياكم لكل خير
*- قم بانشاء مشروع ويب جديد ( للمبتدئين)
قم بعمل مجلد في نفس المشروع وسمه
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
{
width: 927px;
}
</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>
<a href='<%#Eval("FileName") %>' target ="_blank" "><img class ="Example_D" </a="" align="bottom"
src='<%#Eval("FileName") %>' style=" height: 50px; width: 50px">
</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 Object, ByVal e As EventArgs) Handles Me.Load
ShoImages(Server.MapPath("~/marked/"), "marked/")
End Sub
Protected Sub btnAddImageAsWaterMark_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAddImageAsWaterMark.Click
Static c
c = c + 1
If c > 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(0, 0, waterMarkimage.Width, waterMarkimage.Height)
Dim brush As Brush = New TextureBrush(waterMarkimage, imageRect)
opacity.FillRectangle(brush, imageRect)
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(0, img.Height - higt)
g.DrawImage(waterMarkimage, point)
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
اخيرا شغل المشروع وارفع صورة وحاول ان تتفنن وتغير وتحسن من الكود كما تحب
اذا وجدت اخطاء ارجو تنبيهي لها
فالمثال وجدته على صفحات النت وقمت فقط ببعض التعديلات عليه
وفقني الله واياكم لكل خير
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات