Zeichenfläche TCanvas über das Netzwerk versenden

moin!
Vielen Dank für eure Hilfestellung.
Ist es möglich meinen Code um ein paar Zeilen zu erweitern damit man kurzfristig die TCanvas Zeichenfläche zwischenspeichern kann, damit man dann die Zeichenfläche versendet und nicht den Zeiger. Ich hab leider noch zu wenig Ahnung und bekomme einfach mittlerweile keine Idee mehr. Ist bisher alles gescheitert. Die Quellcodes helfen mir dabei leider auch nicht viel weiter, trozdem vielen Dank.

Rostfrei**

Hallo

Am einfachsten kannst Du die Canvas Speichern indem Du sie in ein Image kopierst und dieses dann in einer Datei speicherst.

// Code ist nicht getestet!
Image1->Canvas = YourCanvas;
Image1->Picture->SaveToFile("C:\\test.bmp");

Diese Datei kannst Du dann mit dem Code, den ich vorher gepostet habe, versenden.

Gruss

Ich habe das Problem das der Server den Screenshot machen soll aber komplett im Hintergrund läuft. Und somit auch kein TImage haben soll wo er es reinspeichert. Er soll es wenn möglich auch nicht auf die Fetsplatte zwischenspeichern. Am liebsten wäre mir das er es in eine Variable zwischenspeichert die Variablle dann an den Client versendet.

akari

Hallo

und zwar eine Variable vom Typ TBitmap.

bis bald
akari

Ich weiß einfach nicht wie, vieleicht könnte mir einer meinen Code berichtigen. Ich habe bisher einfach noch zu wenig Erfahrung und bin mittlerweile am verzweifeln.

Server
----------------------------------------------------------------------
TCanvas* canvas = new TCanvas();
canvas->Handle = GetWindowDC(GetDesktopWindow());
TBitmap canvas2 = canvas; //???????? wie ?????
ServerSocket1->Socket->Connections[0]->SendBuf((canvas2), sizeof(canvas2));

Client
----------------------------------------------------------------------
TCanvas* test = new TCanvas();
TRect Dest = Image1->ClientRect;
TBitmap test2 = canvas; //??? wie ????
TRect Source = Rect(0, 0, 1024, 768);
Socket->ReceiveBuf(test2,sizeof(test2));
Image1->Canvas->CopyRect(Dest, test2, Source);

Rostfrei**

Der Code zum senden sollte in etwa so aussehen:

ClientSocket1->Active = true;
   Graphics::TBitmap *Image1 = new Graphics::TBitmap();
   HDC dc = GetDC(NULL);
   Graphics::TCanvas *ScreenCanvas = new Graphics::TCanvas();
   ScreenCanvas->Handle = dc;

   Image1->Width  = Screen->Width;
   Image1->Height = Screen->Height;
   TRect rectSource = Rect(0,0,Screen->Width, Screen->Height);
   TRect rectDest = Rect(0,0,Screen->Width, Screen->Height);
   Image1->Canvas->CopyRect(rectDest, ScreenCanvas, rectSource);

   Pic->Picture->Bitmap = Image1;             // nur zum testen
   Pic->Picture->SaveToFile("C:\\test.bmp");  //       - " -

     for(int x = 0; x <= ServerSocket1->Socket->ActiveConnections - 1; x++)
       {
         ServerSocket1->Socket->Connections[0]->SendBuf((Image1), sizeof(Image1));
       }
     delete Image1;
     delete ScreenCanvas;

Jo vielen Dank das Hilft mir schon um einiges weiter. Hab jetzt nur noch eine Frage und das betrifft das Empfangen.

Client:

Socket->ReceiveBuf(Image1,sizeof(Image1));

ODER

TRect Dest = Image1->ClientRect;
TRect Source = Rect(0, 0, 1024, 768);
TImage* test = new TImage();              //FEHLER
Socket->ReceiveBuf(test,sizeof(test));
Image1->Canvas->CopyRect(Dest, Image1, Source);

so funktzioniert das leider nicht. Das Image1 bleibt leer. Beim zweiten Beispiel bekomme ich eine Fehlermeldung.
Verzeiht mir meine Unwissenheit, ich schäme mich schon deswegen.

Rostfrei**

LarryXS schrieb:

Client:

TImage* test = new TImage();              //FEHLER
Socket->ReceiveBuf(test,sizeof(test));
Image1->Canvas->CopyRect(Dest, Image1, Source);

Du musst den Parent angeben, also Deine Form:

TImage* test = new TImage(Form1);

weiterhin macht

Socket->ReceiveBuf(test,sizeof(test));

keinen Sinn. Was nützt Dir sizeof test, welches Du eben erst intialisiert hast?
Wenn schon, dann

Socket->ReceiveBuf(client, Socket->ReceiveLength());

.

Um ehrlich zu sein, hänge ich ebenfalls gerade am Empfangen etwas fest. Muss nochmal schauen...

Jansen

Bei sowas kann es nie schaden, sich den FAQ-Eintrag zur Protokollentwicklung anzusehen.

Ich habe längere Zeit die FAQ-Beiträge durchstöbert.
Das mit der Protokollentwicklung hilft mir nicht weiter. Für den Text den ich auch über den Client- Serverprogramm habe ich bereits ein Protokoll geschrieben. Das Protokoll soll natürlich auch Anwendung für den Bilderversand haben. Das Problenm ist nur wie ich das Bild in ein string umwandle um die Protokollinforationen anzuhängen. Das andere Problem ist den string am Clientprogramm wider in eine Bitmap umzuwandeln und ins TImage schreibe zu schreiben.