Results 1 to 7 of 7

Thread: Bestand versturen met NLDMSNP

  1. #1
    Je mag mijn vorige vraag negeren.

    XML+Base64 werkt heel mooi totdat je grotere bestanden gaat doen 500kb enzo.
    Enig idea hoe ik met NLDMSN een bestand kan doorsturen zonder de FTP van MSN te gebruiken want die is niet geimpementeerd (en mij networking skills zijn niet goed genoeg om dat aan de praat te krijgen)

    I was aan het denken aan:
    MSG1 -> XFS FileName.ext MessageCount
    MSG2 -> XFSP FileName.ext 1 & 5 lijnen Base64 data
    MSG3 -> XFSP FileName.ext 2 & 5 lijnen Base64 data
    MSG4 -> XFSP FileName.ext 3 & 5 lijnen Base64 data
    ...

    en die die dan weg te schijven in Filename.ext.b64 en nadien te decoderen.
    Last edited by c00lk1d; 20-Sep-06 at 18:36.
    Jorge

  2. #2

  3. #3
    Yay: Student(je) af
    Join Date
    Jun 2003
    Location
    Harderwijk
    Posts
    2,621
    Linkie voor het geval iemand zich geroepen voelt...
    My software never contains bugs. Perhaps just undocumented features.

  4. #4
    Dit werkt dus ook niet!

    Als ik dit probeer, crashed NLDMSNP met een Socket Error na +- 2 seconded (4-5 berichtjes later)
    Jorge

  5. #5
    Dit is wat ik heb van code

    Code:
    procedure.SplitMessage(Header: string; Msg: TStringList; Session: TMSNSession);
    var
      SendMsg: string;
      MsgCount, SendCount, LineCount, i: integer;
    begin
      //get the message count
      LineCount := Msg.Count;
      MsgCount := 1;
      SendCount := 0;
      while LineCount > 35 do
      begin
        LineCount := LineCount-25;
        Inc(MsgCount);
      end;
    
      //split and send the message
      while MsgCount <> SendCount  do
      begin
        Inc(SendCount);
        SendMsg := Header + ' ' + IntToStr(SendCount) + '/' + IntToStr(MsgCount) +
                   #13#10 + #13#10;
        for i := 0 to 34 do
        begin
          if Msg.Count <> 0 then
          begin
            SendMsg := SendMsg + Msg.Strings[0] + #13#10;
            Msg.Delete(0);
          end;
        end;
        Session.SendMessage(SendMsg);
      end;
    end;
    Dit word opgeromen met:

    SplitMessage('XFT MyFile.txt', Base64Encoded, Session)

    waar Base64Encoded een TStringList is met de Base64 van het bestand.
    Normaal zou ik dus:

    XFT MyFile.txt 1/547

    DATA HERE
    DATE HERE
    ...

    XFT MyFile.txt 2/547

    DATA HERE
    DATE HERE
    ...
    moeten aanrkijgen... dit worked ook tot bij berichtje 4 of 5 (vershilled atijd) dan krijg ik een:

    Project RemoteWebcam.exe raised exception Class EIdSocketError with message 'Socket Error # 10054 Connection reset by peer'.
    Iemand een idea waarom hij na 4 a 5 berichtje crashed?
    Jorge

  6. #6
    Yay: Student(je) af
    Join Date
    Jun 2003
    Location
    Harderwijk
    Posts
    2,621
    De verbinding verbreken, dat is iets dat de MSN server nogal eens doet als je er ongeldige invoer in stopt.
    Klopt je syntax wel?
    My software never contains bugs. Perhaps just undocumented features.

  7. #7
    De message content die ik versuurt ziet er alsvolged uit

    Code:
    XFT Test.jpg 1/45
    
    TWFuIGlzIGRpc3Rpbmd1aXNoZWQsIG5vdCBvbmx5IGJ5IGhpcyByZWFzb24sIGJ1dCBieSB0aGlz
    IHNpbmd1bGFyIHBhc3Npb24gZnJvbSBvdGhlciBhbmltYWxzLCB3aGljaCBpcyBhIGx1c3Qgb2Yg
    dGhlIG1pbmQsIHRoYXQgYnkgYSBwZXJzZXZlcmFuY2Ugb2YgZGVsaWdodCBpbiB0aGUgY29udGlu
    dWVkIGFuZCBpbmRlZmF0aWdhYmxlIGdlbmVyYXRpb24gb2Yga25vd2xlZGdlLCBleGNlZWRzIHRo
    de hoeveelheid hanged af van de grote van het bestand dat ik will doorsturen.

    Op de andere client plak ik ze aaneen. Kleine bestandje werken perfect (mindar als 4 berichtjes)
    Jorge

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
  •