Veresk

*Lazarus *public
Продолжаю вчерашние попытки набрести на истину. Что-то так получается:

Я разобрался, как передать текст
Отдали:
LTCPComponent1.SendMessage(out msg: string; aSocket: TLSocket=nil): Integer;
Приняли:
[code]LTCPComponent1.GetMessage(out msg: string; aSocket: TLSocket=nil): Integer;[/code]

Есть нюансы с размером строки, точнее буфером сетевым, но ладно, разработчик боле-мене описал проблему и решение. Ну есть ещё проблемы с зависанием клиента и сервера, надо правильно обработку исключительных ситуаций запилить.

А вот как передать просто данные не понял, там, кажется, использовать надо
Отдать:
LTCPComponent1.Send(out aData; const aSize: integer; aSocket: TLSocket=nil): Integer;
Принять:
LTCPComponent1.Get(out aData; const aSize: integer; aSocket: TLSocket=nil): Integer;

Но что за aData не понятно и как это использовать вообще? А у разработчика не нашёл ни слова.

Обсуждение идёт тут: clck.ru

#1920202
from Psi+, 28 days ago

← All messages

Replies (15)

Post a reply (xmpp)

@Zawullon:
А что тут непонятного?
var
P: Pointer;
const
Size = 100;
begin
P = GetMem(Size);
FillChar(P^, Size, 0);
.......
<объект>.Get(P^, Size, Socket);
....
end;
#1920202/1
from web, 28 days ago
@Veresk:
@Zawullon а send как сделать, что файл послать?
#1920202/2
from Psi+, 28 days ago, in reply to /1
@Zawullon:
@Veresk Там const, а не out. Выделяешь память под данные, записываешь их туда, и отсылаешь через .Send(P^, Size, Socket); А чем тебя стандартный TSocketStream не устроил-то?
#1920202/3
from web, 28 days ago, in reply to /2
@Veresk:
@Zawullon сокетов стандартно в Lazarus нету
#1920202/4
from Psi+, 28 days ago, in reply to /3
@Zawullon:
@Veresk Ага, потому что они во FreePascal стандартно есть. Ты мой коммент к прошлому посту читал?
#1920202/5
from web, 28 days ago, in reply to /4
@Veresk:
@Zawullon пытаюсь, к вечеру вернусь разбираться
#1920202/6
from Psi+, 28 days ago, in reply to /5
@Zawullon:
@Veresk А, ну ладно тогда. В папке с fpc есть примеры использования, путь к ним я тебе в #1918979/13 написал.
#1920202/7
from web, 28 days ago, in reply to /6
@Veresk:
@Zawullon пасиба, буду пробовать
#1920202/8
from Psi+, 28 days ago, in reply to /7
@Zawullon:
@Veresk Не за что. Алсо этот твой LNet юзает стандартный модуль FPC sockets, а TSocketStream из fcl-net/ssockets это ООП-оберка над ним.
#1920202/9
from web, 28 days ago, in reply to /8
@Veresk:
@Zawullon надо свою какую-то обёртку пилить будет..
#1920202/10
from Psi+, 28 days ago, in reply to /9
@Zawullon:
@Veresk Ну это немногим сложнее чем обертку над записью в файл писать )))
#1920202/11
from web, 28 days ago, in reply to /10
@Zawullon:
@Veresk Алсо обертку не нужно же. Они как обычные потоки (TFileStream, TMemoryStream и т.п.) работают, только вместо Seek заглушка стоит.
#1920202/12
from web, 28 days ago, in reply to /10
@Veresk:
@Zawullon почитай ветку на форуме: freepascal.ru там чувак уже тоже волосы на жопе рвёт, так как подмышками рвать больше нечего
#1920202/13
from Psi+, 28 days ago, in reply to /11
@Zawullon:
@Veresk Угу, но не сегодня, у меня Lazarus на данный момент только на работе стоит. Завтра попробую.
#1920202/14
from web, 28 days ago, in reply to /13
@Veresk:
@Zawullon буду премного блогодарен!
#1920202/15
from Psi+, 28 days ago, in reply to /14

Subscribe

Replies (15)

Messages