|
Without seeing your code, it's impossible to say what the problem is. From your description, it appears that you're loading a .JPG image, making a change to it, but what your actually saving or sending down whatever code pipe your using is a uncompressed .BMP image.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Here is the code..........
<br />
Public Sub waterMark()<br />
Dim imageURL As String<br />
<br />
'Set the thumbnail width in px – the width will be calculated later to keep the original ratio.<br />
Dim imageHeight As Integer<br />
Dim imageWidth As Integer<br />
<br />
Dim logoX, logoY As Integer<br />
<br />
'Original image<br />
imageURL = Server.MapPath("watermark_images/originalImg.jpg")<br />
Dim fullSizeImg As System.Drawing.Image<br />
fullSizeImg = System.Drawing.Image.FromFile(imageURL)<br />
<br />
'For Logo with which we watermark image<br />
<br />
Dim logoImg As System.Drawing.Image<br />
imageURL = Server.MapPath("watermark_images/logo.png")<br />
logoImg = System.Drawing.Image.FromFile(imageURL)<br />
<br />
imageHeight = fullSizeImg.Height<br />
imageWidth = fullSizeImg.Width<br />
<br />
<br />
Response.ContentType = "image/jpeg"<br />
<br />
If imageHeight > 0 And imageWidth > 0 Then<br />
Dim dummyCallBack As System.Drawing.Image.GetThumbnailImageAbort<br />
dummyCallBack = New _<br />
System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)<br />
<br />
<br />
'Creating the Thumbnail image of same size<br />
thumbNailImg = fullSizeImg.GetThumbnailImage(imageWidth, imageHeight, _<br />
dummyCallBack, IntPtr.Zero)<br />
<br />
<br />
<br />
'Declaring and initializing the Graphics image<br />
'With this image we wil draw image and watermark it<br />
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(thumbNailImg)<br />
<br />
<br />
'Sets the interpolation mode for a high quality image<br />
<br />
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic<br />
<br />
'Drawing the original image<br />
g.DrawImage(fullSizeImg, 0, 0, imageWidth, imageHeight)<br />
'Drawing the logo on it<br />
<br />
<br />
logoX = imageWidth * 0.02<br />
logoY = imageHeight * 0.92<br />
imageHeight = logoImg.Height<br />
imageWidth = logoImg.Width<br />
<br />
g.DrawImage(logoImg, logoX, logoY, imageWidth, imageHeight)<br />
<br />
<br />
g.SmoothingMode = SmoothingMode.HighQuality<br />
<br />
thumbNailImg.Save(Server.MapPath("watermark_images/watermarkedImg.jpg"))<br />
<br />
Else<br />
<br />
End If<br />
<br />
<br />
Please let me know what to do with it, so that I can get watermarked image of relatively small size.
Lets work it Out.........!
|
|
|
|
|
Hey! Sorry, but I forgot about this thread.
Here's a function I dug up out of my archives and heavily modified for your use:
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
.
.
.
'
' Create and return a Watermarked image.
'
Public Function CreateWatermarkedImage(
ByVal SourceFilepath As String, _
ByVal WatermarkFilepath As String, _
ByVal WatermarkScale As Single) _
As Bitmap
' Check to see if our parameters are valid!
If File.Exists(SourceFilepath) AndAlso File.Exists(WatermarkFilepath) _
AndAlso WatermarkScale > 0 AndAlso WatermarkScale < 100 Then
' Load the source image into a target bitmap to build the watermarked image in...
Dim targetImage As New Bitmap(SourceFilepath)
' Now load the watermark image...
Dim wmImage As New Bitmap(WatermarkFilepath)
' Scale the Watermark image...
Dim gtia As New Image.GetThumbnailImageAbort(AddressOf GetThumbnailImageAbortHandler)
Dim thumbImage As Bitmap = wmImage.GetThumbnailImage( _
wmImage.Width * WatermarkScale, _
wmImage.Height * WatermarkScale, _
gtia, IntPtr.Zero)
' Draw the thumbnailed watermark image over the target image...
Dim g As Graphics = Graphics.FromImage(targetImage)
g.CompositingMode = Drawing2D.CompositingMode.SourceOver
g.DrawImage( _
thumbImage, _
targetImage.Width - thumbImage.Width, _
targetImage.Height - thumbImage.Height, _
thumbImage.Width, _
thumbImage.Height)
g.Dispose()
Return targetImage
End If
Return Nothing
End Function
Private Function GetThumbnailImageAbortHandler() As Boolean
End Function
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hello friends,
plz guide me to develope a project in which, i want to send sms/e-mail.
plz send me related information.
Thanks in Advanced!!!
Rahul here
|
|
|
|
|
Hi
Im trying to print my datagrids and ive got 2 problems with them:
1) When i print them unless i print them 1 at a time they overwrite each other and therefore the only page that gets printed is the last 1 (By 1 at a time i mean say if u click a button to print the next page)
2) When they print if the data on the grid is too big for the page then it cuts off any data that doesnt fit and the data is lost. How do i go about either resizing them to print smaller than they are or how can i get it to print any data thats too big on another page?
Thx
"You don't have to be crazy to do this but it sure does help!"
|
|
|
|
|
There are a couple of articles on this site describing ways of printing a data grid to span multiple pages (including one written by myself) - I'd suggest you look at those.
'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd
|
|
|
|
|
hello
i want to bind a pirticular row of my table with the textboxes which i have in my form. i am getting that row from the datagrid and that is a current row which is clicked by the user. i have saved that row refernce in a seprate datarow object. now how i will select that pirticular row from my table and display the values of each column in realted textbox
Dim xCM As CurrencyManager<br />
Dim drw As DataRowView<br />
Dim row As DataRow<br />
<br />
xCM = CType(DataGrid1.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember), CurrencyManager) '= <br />
drw = CType(xCM.Current, DataRowView)<br />
row = drw.Row<br />
Me.ItemCode.DataBindings.Add("Text", ds.Tables(0), "locid")
the last line bind the first row but i want to bind a cuurent row which is clicked by the user on the datagrid and want to display its values plz help me as soon as possible
|
|
|
|
|
|
Hi guys, I'm on role based security thing. I have a roles table , a users table and a UserRoles table which contains User Id and Role Id (both primary keys). For assigning roles to the users, I have a form which has a combo box for listing all the users and a checked listbox for listing all the roles. To assign a role I select a user and check the role I want to assign. That Information is stored in the UserRoles table.The problem is when I load the form and select a user who as been assigned roles, I need those roles to be checked.The datasource for the checked listbox is the roles table. Any help will be highly appreciated.
Every day is a learning day
|
|
|
|
|
dear friends when the cursor enter the datagrid on the press of tab the cursor moves from one cell to another but i want the cursor to move from one control to another for eg
I have 3 control in the form 1st textbox 2nd datagrid n 3rd button. On the load of the form the cursor focus will be on textbox on the press of tab the cursor will move to datagrid on tab again the cursor will move to the next cell in the datagrid but i want the cursor to focus on the button.
How can i make it possible please help at your ealiest.
Thanks
|
|
|
|
|
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
End Function
This sub capture key messages before the form get's it. You can handle the key message manually from here and set the focus to the next control is keyData = Keys.Tab
Try this, it's how I manage to control where the focus is on my application and it works fine!
A programmer's life is good... or is it?? Ek dink nie so nie!
|
|
|
|
|
what the return value by using String$()??, example:
value = String$(255,32)
Thanks
angela
|
|
|
|
|
|
ok, thanks
angela
|
|
|
|
|
Please forgive me in advance for any ignorance I show. I've recently arrived in the world of .net from VB6. I have seen applications that can send a method to an object with a compiled executable. For example, the screen capture software called SnagIt has the ability to scroll a list box within any application window that is active. From my experience, the only way to accomplish such a task would be to send a call to a dll file but it would seem impossible to me that SnagIt (for example) would know the dll to hit for a software program that it never saw before. Somebody told me that this functionality is now possible because of the .net technology.
Does anybody have any code examples of a VB .net program that can send methods to a control within a complied executable?
Thanks,
Derek
|
|
|
|
|
You cannot send "methods" to other applications. You can't send methods to anything actually. What you're seeing is SnagIt sending Windows Win32 messages to those controls. You need to get the Window Handle of the control that you want to send messages to, then call the Win32 function SendMessage to send whatever messages you need to to that control.
This is nothing new. This is how Windows has worked for years. There's nothing in the .NET Framework that makes this any easier than it was 10 years ago.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
when I run the query
select @@ version on query analyzer (sql server 2000) i get
Microsoft SQL Server 2000 - 8.00.194 (Intel X86) Aug 6 2000 00:57:48 Copyright (c) 1988-2000 Microsoft Corporation Personal Edition on Windows NT 5.1 (Build 2600: Service Pack 2)
it seems that service pack2 is already present in SQL but when i use DTS in my vb.net (visual studio.net 2003) code i get the following error
" 13 queryinterface for custom task DTS.customtask dll"
plz tell what is wrong and how to get rid of it?
|
|
|
|
|
i want to add more pages to printdocument component in .net2.0 windows application
please help me.(i want to connect to database and read records and for each record ,add new page to printdocument and print all together)
|
|
|
|
|
who can give me a example about the True DBReports 6.0 ?True DBReports 6.0?
初学者!Don't try it, just do it!
*Archibald*rever dragon!
|
|
|
|
|
How about asking ComponentOne for help. After all, that's what you paid the money for...support. Right?
Sorry, there's just too many cracks out there for their ActiveX components to believe that you paid the money for the component and are still asking this question.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
hellow to all ,
i wrote a code that send's email , by useing the System.Web.Mail refernce the code is fine i don't recive errors , i send to a vaild address , and i config my IIS , but i don't recive anyemail ,
the funny thing that i run the same code befor 1 week and it worked fine !
and now it's not working ...\
anyhelp
-- modified at 7:54 Sunday 18th June, 2006
|
|
|
|
|
This question is a bit vague. Are you saying that you're running your own SMTP/POP3 mail servers at home? Most ISP's will NOT allow you to do this.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
i use this code , to send email ...
System.Web.Mail.SmtpMail.SmtpServer = "127.0.0.1"
mailmsg.Subject = "message subject"
mailmsg.Body = "message body"
mailmsg.From = "Complaints@Nateevexpress.com"
mailmsg.To = SendToEmails
mailmsg.BodyFormat = Web.Mail.MailFormat.Text
System.Web.Mail.SmtpMail.Send(mailmsg)
some times it send emails fast and some times it take a long time to recive email ..\
thxx
|
|
|
|
|
You didn't answer my question...
What do you mean by "some times it take a long time to recive email"?? Are you running your own mail server at home? Are you expecting a message from an outside sender to be delivered to your mail server and you're not receiving it? Or are you saying that the mail message never leaves your mail server and arrives at its destination?
By the IP address in your code, I'll assume that your running a mail server on your local machine. Most ISP's will NOT allow this and will NOT forward messages sent from unauthorized mail servers.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
hellow ,
i am only trying to send to outers emails ,
i am not trying to recive ,
and some times i recive this message could not access CDO.Message object ,
how can i do this ?
-- modified at 8:19 Tuesday 20th June, 2006
|
|
|
|