RC5 CairoSurface mit cWebServer versenden

16/12/2015 - 15:54 von Wolfgang Wolf | Report spam
Hallo,

möchte ein Bild aus einer RC5-CairoSurface ins Web senden. Mein Versuch:

Private Sub WebServer_ProcessRequest(
Request As vbRichClient5.cWebRequest)
Dim b() As Byte
sf.WriteContentToJpgByteArray b
With Request.Response
.CompressGzip = False
.ContentType = " image/jpeg"
.SetResponseDataBytes b
End With
End Sub


Der Browser meldet eine JPEG-Grafik mit 800x600 Pixel, was so auch
stimmt, zeigt aber nur eine leere schwarze Flàche. Irgendwas muss wohl
noch fehlen.

Wenn ich sf.DrawToDC pic.hDC aufrufe, sehe ich das Bild in der PictureBox.

Schönen Gruß
W. Wolf
 

Lesen sie die antworten

#1 Wolfgang Wolf
17/12/2015 - 09:03 | Warnen spam
Am 16.12.2015 um 15:54 schrieb Wolfgang Wolf:
Hallo,

möchte ein Bild aus einer RC5-CairoSurface ins Web senden. Mein Versuch:

Private Sub WebServer_ProcessRequest(
Request As vbRichClient5.cWebRequest)
Dim b() As Byte
sf.WriteContentToJpgByteArray b
With Request.Response
.CompressGzip = False
.ContentType = " image/jpeg"
.SetResponseDataBytes b
End With
End Sub





nach einigem Herumprobieren habe ich nun folgende Lösung gefunden:

Private Sub WebServer_ProcessRequest(
Request As vbRichClient5.cWebRequest)
Dim b() As Byte
With sf.CreateContext
.Operator = CAIRO_OPERATOR_DEST_ATOP
.Paint 1, Cairo.CreateSolidPatternLng(vbBlack)
End With
sf.WriteContentToJpgByteArray b
With Request.Response
.CompressGzip = False
.ContentType = " image/jpeg"
.SetResponseDataBytes b
End With
End Sub

Schönen Gruß
W. Wolf

Ähnliche fragen