Hallo Stefan,
Erstmal vielen dank für deine Antwort!!!
Ich hab eher das Gefühl das da was mit den Server Einstellungen nicht passt oder das Problem ganz woanders begraben ist. Wie schon erwähnt wenn ich den Code lokal auf meinem IIS laufen lasse läuft es ohne Probleme. Sobald ich es aber auf den
Server hochlade und ausführe (web.config geändert) kommt diese Fehlermeldung s.o. . Ich poste hier mal den Code der die Graphik erstellt.
Was auch noch sein könnte, das auf dem Web Server das 3.5 Framework läuft und bei mir lokal das 4.0 ...
Sub drawNow(ByVal ypbreite, ByVal xphoehe, ByVal ema, ByVal geo)
Dim gt(0, 1), g1(1, 4), gmax As Double
'Versuchsweise Graphische Ausgabe
Dim schrift As System.Drawing.Font = New System.Drawing.Font("Arial", 10)
Dim gtext As String
Dim mittex, gtemp As Double
Dim mittey As Double
Dim ueberstand As Double
Dim k, k3 As Integer
k = ema.GetUpperBound(0)
ueberstand = Val(boxueberstand.Text)
Do While ema(k, 3 + gtemp * 4) <> 0
gtemp = gtemp + 1
Loop
Dim width As Integer = ypbreite
Dim height As Integer = xphoehe
Dim bmp As New Bitmap(width + 30, height + 30)
Dim g As Graphics = Graphics.FromImage(bmp)
Dim rectToFill As New System.Drawing.Rectangle()
Dim stringFormat As New StringFormat()
stringFormat.FormatFlags = StringFormatFlags.DirectionVertical
g.SmoothingMode = SmoothingMode.HighQuality
rectToFill.Width = width + 30
rectToFill.Height = height + 300
g.FillRectangle(Brushes.White, rectToFill)
g.DrawRectangle(Pens.Black, 20, 20, width, height)
g.DrawString(CStr(xphoehe), schrift, Brushes.Black, 0, xphoehe / 2, stringFormat)
g.DrawString(CStr(ypbreite), schrift, Brushes.Black, ypbreite / 2, 0)
'Graphik end
gt(0, 0) = ueberstand '% gt = temporärer Startpunkt links unten
gt(0, 1) = ueberstand
For k2 = 1 To gtemp '% Für jeden Schritt
For k3 = 1 To ema(k, 4 + (k2 - 1) * 4) '% Für jedes Exemplar
gmax = ema(k, 1 + (k2 - 1) * 4) Xor ema(k, 3 + (k2 - 1) * 4) - 2 ' % Index der Primärkoordinate
For k4 = 0 To 4
g1(0, k4) = gt(0, 0)
g1(1, k4) = gt(0, 1)
Next
g1(0, 2) = g1(0, 2) + geo(ema(k, 2 + (k2 - 1) * 4), 2 + gmax) - 2 * ueberstand
g1(0, 3) = g1(0, 3) + geo(ema(k, 2 + (k2 - 1) * 4), 2 + gmax) - 2 * ueberstand
g1(1, 1) = g1(1, 1) + geo(ema(k, 2 + (k2 - 1) * 4), 3 - gmax) - 2 * ueberstand
g1(1, 2) = g1(1, 2) + geo(ema(k, 2 + (k2 - 1) * 4), 3 - gmax) - 2 * ueberstand
gtext = geo(ema(k, 2 + (k2 - 1) * 4), 0) + 1
'Zuordnung der Punkte
Dim punkt1 As PointF = New PointF(g1(0, 0) + 20, g1(1, 0) + 20)
Dim punkt2 As PointF = New PointF(g1(0, 1) + 20, g1(1, 1) + 20)
Dim punkt3 As PointF = New PointF(g1(0, 2) + 20, g1(1, 2) + 20)
Dim punkt4 As PointF = New PointF(g1(0, 3) + 20, g1(1, 3) + 20)
g.DrawLine(Pens.Black, punkt1, punkt2)
g.DrawLine(Pens.Black, punkt2, punkt3)
g.DrawLine(Pens.Black, punkt3, punkt4)
g.DrawLine(Pens.Black, punkt4, punkt1)
mittex = (punkt1.X + punkt2.X + punkt3.X + punkt4.X) / 4
mittey = (punkt1.Y + punkt2.Y + punkt3.Y + punkt4.Y) / 4
If gmax = 0 Then
g.DrawString(gtext, schrift, Brushes.Black, mittex, mittey)
Else
g.DrawString(gtext, schrift, Brushes.Black, mittex, mittey, stringFormat)
End If
gt(0, 0 + ema(k, 1 + (k2 - 1) * 4)) = gt(0, 0 + ema(k, 1 + (k2 - 1) * 4)) + geo(ema(k, 2 + (k2 - 1) * 4), 0 + ema(k, 3 + (k2 - 1) * 4)) ' % gt ein Exemplar weiter
Next
gt(0, 1 - ema(k, 1 + (k2 - 1) * 4)) = gt(0, 1 - ema(k, 1 + (k2 - 1) * 4)) + geo(ema(k, 2 + (k2 - 1) * 4), 5 - ema(k, 3 + (k2 - 1) * 4)) '% gt eine Reihe weiter rücken
gt(0, 0 + ema(k, 1 + (k2 - 1) * 4)) = gt(0, 0 + ema(k, 1 + (k2 - 1) * 4)) - (k3 - 1) * geo(ema(k, 2 + (k2 - 1) * 4), 0 + ema(k, 3 + (k2 - 1) * 4)) ' % Exemplarrückung rückgängig
Next
bmp.Save(Server.MapPath("/images/" & auftragsnr.Text & ".jpg"), ImageFormat.Jpeg)
imgAusgabe.ImageUrl = "/images/" & auftragsnr.Text & ".jpg"
imgAusgabe.Visible = True
btnPDF.Enabled = True
Dim heightwindow As String = CStr(height + 50)
Dim widhtwindow As String = CStr(width + 50)
ScriptManager.RegisterClientScriptBlock(btnBerechnen, Me.GetType(), "Bildopen", "window.open('/images/" & auftragsnr.Text & ".jpg','Ausgabe AuftragNr.: " & auftragsnr.Text & "','height=" + heightwindow + ",width=" + widhtwindow + ",left=20,top=20');", True)
End Sub
