Код

//*****************************************************************
//Получить GUID строкой
//*****************************************************************
function TRiK_Inet.GetGUIDStr : String;
var G : TGUID;
    PO : POLEStr;
begin
  CoCreateGuid(G);
  StringFromCLSID(G,PO);
  GetGUIDStr := Copy(PO,2,Length(PO)-2);
end;
//*****************************************************************

 

Код

//*****************************************************************
//ОтветитьСтрокой(<ИдСоединения>, <СтрокаОтвета>)
//*****************************************************************
function TRiK_Inet.AnswerWithString(var paParams: PSafeArray{(OleVariant)}) : OleVariant;
var
  tekGUID	 : String;
  TempInt	 : Integer;
  Finded	  : Boolean;
  ConnectServer : PConnectServerRec;
  StrOut	  : String; //Строка для отправки
  MemSt	   : TMemoryStream;
begin
  tekGUID := GetNParam(paParams,0);
  StrOut  := GetNParam(paParams,1);

  ConnectServer := nil;

  //попробуем найти наш сокет
  Finded := false;
  for TempInt := 0 to ListConnects.Count-1 do begin
    ConnectServer := ListConnects.Items[TempInt];
    if ConnectServer^.GUID = tekGUID then begin
	Finded := true;
	break;
    end;
  end;

  if not Finded then begin
    AnswerWithString := 0;
    exit;
  end;

  MemSt  := TMemoryStream.Create;

  TempInt := 1;
  MemSt.WriteBuffer(TempInt, 4);	  //Признак, что отправляется строка

  TempInt := 0;
  MemSt.WriteBuffer(TempInt, 4);	  //Длина расширения файла. В нашем случае 0

  TempInt := Length(StrOut);
  MemSt.WriteBuffer(TempInt, 4);	  //Длина строки

  MemSt.WriteBuffer(StrOut[1], TempInt);

  MemSt.Position := 0;
  if not ConnectServer^.Socket.SendStream(MemSt) then begin  //Почему-то не удалось отправить строку
    AnswerWithString := 0;
  end else begin
    AnswerWithString := 1;
  end;
end;
//*****************************************************************