Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3531048 Wed, 01 Oct 2014 13:50:48 +0000 Передача TStringList через сокет https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3531048 MBo Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3531018 Wed, 01 Oct 2014 12:28:21 +0000 Передача TStringList через сокет https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3531018
    ListBox1.Items.Add(Msg.FileList.Strings[i]); = ListBox1.Items.Add(Msg^.FileList.Strings[i]);
]]> konvikkor Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3530842 Tue, 30 Sep 2014 17:48:25 +0000 Передача TStringList через сокет https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3530842 MBo Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3530710 Tue, 30 Sep 2014 10:09:09 +0000 Передача TStringList через сокет https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3530710 hawk1 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3530296 Mon, 29 Sep 2014 10:21:12 +0000 Передача TStringList через сокет https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3530296 Цитата hawk1 @
В чем проблема?

в том, что фактически передаешь указатель на стринглист, а не сам текст.
Либо разверни его в структуре в array[0..N] of char, либо передавай отдельно, после заголовка структуры: Socket.SendBuf(PChar(FileList.Text),Length(FileList.Text));]]> Relaxander Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3530295 Mon, 29 Sep 2014 10:17:47 +0000 Передача TStringList через сокет https://forum.sources.ru/index.php?showtopic=394957&view=findpost&p=3530295
      TServerSendFileListMsg = record
        MsgNumber: integer;
        FileList: TStringList;
      end;
      PServerSendFileListMsg = ^TServerSendFileListMsg;

Процедура отправки
    procedure TForm1.ConnectUser(Socket: TCustomWinSocket; Size: Integer);
    var
        Msg: TServerSendFileListMsg;
        i: integer;
    begin
       Msg.MsgNumber := MSG_SERVERSENDFILELIST;
       MSG.FileList := TStringList.Create;
       Msg.FileList.Clear;
       for i := 0 to Files.Count - 1 do
         Msg.FileList.Add(Files.Strings[i]);
       Socket.SendBuf(Msg,SizeOf(TServerSendFileListMsg));
    end;

Процедура приема и обработки
    procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    var
        Msg: Pointer;
        Size: integer;
    begin
      Size := Socket.ReceiveLength;
      GetMem(Msg,Size);
      Socket.ReceiveBuf(Msg^,Size);
      HandleMessage(Msg);
      FreeMem(Msg);
    end;
     
    procedure TForm1.HandleMessage(Msg: Pointer);
    begin
      case integer(Msg^) of
        MSG_SERVERSENDFILELIST: ServerSendFileList(Msg);
      end;
    end;
     
    procedure TForm1.ServerSendFileList(Msg: PServerSendFileListMsg);
    var
       i: integer;
    begin
      ListBox1.Items.Clear;
      for i := 0 to Msg^.FileList.Count - 1 do
        ListBox1.Items.Add(Msg.FileList.Strings[i]);
    end;

При обращении к Msg.FileList вылетает access violation. В чем проблема?]]> hawk1 Delphi: Сетевое программирование