Delphi -ipworks - Как отправить файл через tcp?

Я хочу отправить файл с компонентом "ipworks". Вот мой код:

Сторона клиента:

    IPPort1.SendFile('1.PNG');

Сторона сервера:

    procedure TForm1.IPDaemon1DataIn(Sender: TObject; ConnectionId:       Integer;
    Text: String; EOL: Boolean);
    begin
    if IPDaemon1.AcceptData[ConnectionId] then
    //Here is my problem
Источник

0 ответов

Другие вопросы по тегам