Results 1 to 13 of 13

Thread: Bericht met opmaak over het netwerk sturen

  1. #1
    is ook lid Martijn Warrink's Avatar
    Join Date
    May 2004
    Location
    slaapkamer
    Posts
    61

    Bericht met opmaak over het netwerk sturen

    hey iedereen,

    Ik wil een programma maken dat berichten met een opmaak over een netwerk kan sturen.
    Ik weet wel hoe je berichten kan sturen/ontvangen via TClient-/ServerSocket
    maar dat is zonder opmaak. Ik heb op internet ook iets over Streams gelezen maar daar kwam ik ook niet. evenmin met het artikel van DEES

    Alvast Bedankt,
    Er kwam licht in de duisternis en Delphi werd geboren

  2. #2
    Nog 3 maanden student :)
    Join Date
    Oct 2003
    Location
    Sittard
    Posts
    491
    gewoon rtf sturen?
    (de codes die de opmaak verzorgen bij de RichEdits)

    en die bij inlezen ook weer inlezen in de RichEdit.

  3. #3
    is ook lid Martijn Warrink's Avatar
    Join Date
    May 2004
    Location
    slaapkamer
    Posts
    61
    Jep dat bedoel ik
    Er kwam licht in de duisternis en Delphi werd geboren

  4. #4
    Zo pak je de RTF-source:

    Code:
    function TForm1.GetRTFSource: string;
    var
      SourceStream: TStringStream;
    begin
      SourceStream := TStringStream.Create('');
      try
        RichEdit1.Lines.SaveToStream(SourceStream);
        Result := SourceStream.DataString;
      finally
        SourceStream.Free;
      end;
    end;
    Bij inlezen kun je de source gewoon aan de Text property van de RichEdit toewijzen.

  5. #5
    is ook lid Martijn Warrink's Avatar
    Join Date
    May 2004
    Location
    slaapkamer
    Posts
    61
    Dat lukt wel maar....
    a) zenden doe je dus met socket.sendtext('bla');
    want met .sendstream('bla') werkt neit
    B) hoe ontvang je dit dan met de server want .receivetext geeft-ie weer platte text;
    Er kwam licht in de duisternis en Delphi werd geboren

  6. #6
    Nog 3 maanden student :)
    Join Date
    Oct 2003
    Location
    Sittard
    Posts
    491
    je zou gewoon Strings moeten sturen?

    of anders een string stream.

  7. #7
    is ook lid Martijn Warrink's Avatar
    Join Date
    May 2004
    Location
    slaapkamer
    Posts
    61

    Question

    Hoe bedoel je : ik heb nu
    Code:
    Client
    Richedit1.Text := GetRTFSource; //De code die erik247 gaf
    ClientSocket1.Socket.SendText(Richedit1.Text);
    
    Server
    Richedit1.Text := Socket.ReceiveText;
    Richedit1.Text := GetRTFSource;
    Er kwam licht in de duisternis en Delphi werd geboren

  8. #8
    Ik heb op internet ook iets over Streams gelezen maar daar kwam ik ook niet. evenmin met het artikel van DEES
    Dat was vast niet mijn artikel. Welk artikel heb je als voorbeeld gebruikt?

    Wat begrijp je niet?
    Wat doet de code die je nu op de Client/Server hebt staan?

  9. #9
    is ook lid Martijn Warrink's Avatar
    Join Date
    May 2004
    Location
    slaapkamer
    Posts
    61
    Onee sorry was niet van jou die was van redboy met de titel:
    'Het gebruik van Indy TCP-componenten'
    Wat ik niet begrijp is dat: hoe je berichten met opmaak over het netwerk stuurt. ik gedaan wat erik 247 zei (zie ook mijn vorige reactie met code)
    alleen ik begrijp nu niet wat je dan moet doen als je het bericht ontvangt.

    Groetjes Martijn
    p.s. Als indy hiermee beter werkt zeg het dan maar, want dan kan ik dat proberen/hulp vragen.
    Er kwam licht in de duisternis en Delphi werd geboren

  10. #10
    is ook lid Martijn Warrink's Avatar
    Join Date
    May 2004
    Location
    slaapkamer
    Posts
    61
    Heb het probleem opgelost en het werkt nu.
    Bedankt voor jullie hulp

    Groetjes
    Martijn.
    Er kwam licht in de duisternis en Delphi werd geboren

  11. #11
    Mogen we de oplossing weten?
    DeX 3 Delphi := The ease of VB with the power of C; Zoekt en gij zult vinden

  12. #12
    is ook lid Martijn Warrink's Avatar
    Join Date
    May 2004
    Location
    slaapkamer
    Posts
    61
    Tuurlijk
    ik zal de source wel sturen want dan hebben anderen er ook wat aan
    Er kwam licht in de duisternis en Delphi werd geboren

  13. #13
    is ook lid Martijn Warrink's Avatar
    Join Date
    May 2004
    Location
    slaapkamer
    Posts
    61

    Thumbs up

    Hier is ie dan
    Hij is nog niet helemaal af maar zou hebben jullie ook iets te doen
    en de code moet nog een beetje worden ge?Ârdend

    Groetjes
    Martijn
    Attached Files Attached Files
    Er kwam licht in de duisternis en Delphi werd geboren

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •