Быстро редактировать StringGrid

[IvaniuS]

Сообщение от Stilet

Ну и к чему этот "весьма информативный" пост? Не надоело еще писать бессмысленные фразы?

Человек посты набивает - не будем ему мешать нашим обсуждением
По теме:
Я из кривого скрипто-движка паскаля, т.к. там нету окон и нельзя сделать нормальный интерфейс отправляю информацию в интерфейс написанный на делфи.
Отправляю этим вот кодом:

Function SendString(stringToSend : string):Integer;
var
   copyDataStruct : TCopyDataStruct;
begin
   copyDataStruct.dwData := 0; 
   copyDataStruct.cbData := 1 + Length(stringToSend)*2 ;
   copyDataStruct.lpData := PChar(stringToSend);
   REsult:=SendData(copyDataStruct) ;
   if REsult<=0 then
   begin
    print(stringToSend);
    if REsult<=0 then if assigned(Socket) then Socket.SendString(stringToSend);
   end;
end;

Function SendData(const copyDataStruct: TCopyDataStruct):Integer;
 var
    res : integer;
    szRetText: PChar;
begin
  //print(receiverHandle); 
  if receiverHandle = 0 then
  begin
    receiverHandle :=FindWindowW('Tfmain',''); //FindWindowEx(0,0,PChar('TReceiverMainForm'),PChar('ReceiverMainForm'));
    if receiverHandle = 0 then
    begin
      print('Can`t find Window '+string(copyDataStruct.lpData));
      Exit;
    end;
  end;                           
  REsult:=(SendMessageW(receiverHandle, WM_COPYDATA, Integer(receiverHandle), Integer(@copyDataStruct)));
end;

begin
while delay(100) do
if (LB.IndexOf(temp[1]+temp[2]+' '+' '+temp[0]) = -1) then
    begin
      LB.add(temp[1]+temp[2]+' '+' '+temp[0]);
      SendString('add '+temp[1]+temp[2]+' '+' '+temp[0]+' '+temp[4]+' '+State+' '+temp[3]);
    end else
    if Counter>5 then
      SendString('edt '+temp[1]+temp[2]+' '+' '+temp[0]+' '+temp[4]+' '+State+' '+temp[3]);
end.

Вот принимающая сторона:

procedure Tfmain.WMCopyData(var Msg: TWMCopyData) ;
var
  s : string;
  strl:TStringDynArray;
  i,j,frow,Result:integer;
begin
try
  s := PChar(Msg.CopyDataStruct.lpData) ;
  Result := 0;
  strl:=SplitString(s,' ');
  case Tmsgt(GetEnumValue(TypeInfo(Tmsgt), 'msg_' + strl[0])) of
  msg_add:
  if Grid.cols[0].IndexOf(strl[2])=-1 then
  begin
    if (Grid.Cells[Grid.ColCount-1, Grid.RowCount-1]<>'') then  Grid.RowCount:=Grid.RowCount+1;
    for I := 2 to High(strl) do
      Grid.Cells[i-2, Grid.RowCount-1] := strl[i];
    Grid.Cells[Grid.ColCount-1, Grid.RowCount-1] :=strl[1];
    if (Grid.RowCount>2) then SortStringGrid(Grid,Grid.ColCount-1);
    Result := 1;
  end;
  msg_edt:
  if Grid.cols[0].IndexOf(strl[2])<>-1 then
  begin
    frow:=Grid.Cols[0].IndexOf(strl[2]);
    if frow <> -1 then
    begin
      for I := 2 to High(strl) do
        Grid.Cells[i-2, frow] := strl[i];
      Grid.Cells[Grid.ColCount-1, frow] :=strl[1];
    end;
    Result := 2;
  end;
except
  Result := -1;
end;
  msg.Result:=Result;
end;

АП: Как уже выше написал пишу весь этот геморой из-за надобности в интерфейсе, а если вообще задача - отображаю красиво текущие данные из игры (список игроков прядом).

[Stilet]

ноль целых фик десятых

Ну для тебя понятно что ноль. Тут я не удивлен. Синдром Кеттмара всегда все на ноль сводит.

а если не в курсе

Ты еще лурк или удафф тут мне цитировать начни. Самый раз твоему мирку.

P.S. Можешь не отвечать, толку от твоей реплики. И вообще сколько раз я тее говорил - не знаешь что ответить проходи мимо.

Человек посты набивает - не будем ему мешать нашим обсуждением

Ладно. Уговорил.

Я из кривого скрипто-движка паскаля

А-а-а... Вот оно что... Я думал тут сокеты задействованы... А ты вывод-ввод этого движка перенаправить в пайпы не желаешь?
ИМХО копипастэ как-то не очень функционально для такого межпроцессового обмена.

[lomastr_]

нашим обсуждением

не смешите мои тапочки, обсуждения... и про что вы тут обсуждаете?

вы сами не понимаете про что говорите, то про синапс заикнулись, и что он у вас там "запасает"?

да и вообще пока комментировать нечего, некий набор бессмысленных фраз, то обрабатывать не успевают то как отправлять не занют а что куда зачем, и при чем тут синапс ... детский лепет какой то

Синдром Кеттмара

ух ты, а откуда про него знаете?

[IvaniuS]

Сокеты используются смотрите внимательно на отправку:

Function SendString(stringToSend : string):Integer;
var
   copyDataStruct : TCopyDataStruct;
begin
...
   REsult:=SendData(copyDataStruct) ;
   if REsult<=0 then //ЕСЛИ ПРОИЗОШЛА ОШИБКА В ОБРАБОТКЕ
   begin
    print(stringToSend);
    if assigned(Socket) then Socket.SendString(stringToSend); //ОТПРАВЛЯЕМ С ПОМОЩЬЮ СОКЕТА
   end;
end;

Я вообще думал просто и нагло залезть в память процесса и выдирать куски мяса данных....

Сообщение от lomastr_

то обрабатывать не успевают то как отправлять не занют а что куда зачем

Я ищу проблему, не знаю где она кроется в посылке\приеме или в обработке этих сообщений.
мне приходится отправлять по 5-6 раз из-за того что он не успевает обработать сообщение, но понимаю почему очередь не хочет работать.

[IvaniuS]

АП: Половина проблемы решена - как оказалось все-таки быстрее обрабатывать сразу кучу быстрее и на много и ошибок меньше т.е. я собираю пакет отправляю его и на стороне клиента уже обрабатываю его.

[Stilet]

да и вообще пока комментировать нечего

Вот и молчи.

смотрите внимательно на отправку

Изначально в топе не было этого кода.
Если так то по барабану как отправлять, хоть целиком хоть по частям. Прирост скорости не обязательно будет. Лично я сначала данные засовываю в TMemoryStream а потом его отправляю целиком.

Я вообще думал просто и нагло залезть в память процесса и выдирать куски мяса данных....

Не. Это неудачная идея.

[IvaniuS]

ну проблема на 50% решена, как оказалось я правильно думал в верном направлении, сейчас все проверяю, на небольших массивах 100+-50 ведет себя отлично - в разы лучше чем было (потери снизились до 1% с 15% и скорость отображения увеличилась до моментальной (зрительно)).
Сделал пакетную отправку и пакетную обработку.

[lomastr_]

//ЕСЛИ ПРОИЗОШЛА ОШИБКА В ОБРАБОТКЕ
//ОТПРАВЛЯЕМ С ПОМОЩЬЮ СОКЕТА

т.е. тут ошибки быть не может? тогда нафик отправлять по первому варианту? а если может, то надо 3, какой http? а потом и 4 ...

мне приходится отправлять по 5-6 раз из-за того что он не успевает обработать сообщение

кто он, какое сообщение и почему не успеет?

[IvaniuS]

кто он

- клиент

почему не успеет

- по тому что много времени отрисовка занимает или ошибка другая возникает, у меня там в Гриде много картинок, граддиенты и т.д.

[Stilet]

у меня там в Гриде много картинок, граддиенты и т.д.

Прекрати использовать грид как средство для хранения и анализа данных, и тормозов не будет.