[Yarcim]

Может быть тема не совсем понятная , но вопрос в следующем:
Имеется клиент-серверное приложение реализованное через idTCPClient и idTCPServer. Приложение сервер снимает изображение и звук с вебкамеры и передает его разными потоками клиенту (звук и изображение берутся разными компонентами). Программа клиент по таймеру сообщает программе серверу о необходимости отправки аудио или видеоданных (get_vid, get_aud). Программа сервер по execute отправляет данные по запросам. Таймер отправки аудиоданных -фиксирован. Таймер отправки видеоданных варьируется. Данные отправляются memoryStream'ами.
В общем сущность проблемы:
Когда видеотаймер устанавливается на низкий интервал (50-100мс) иногда получается так, что данные предназначенные для аудио попадают в видеобработчик, и наоборот. Я понимаю почему это происходит, но не понимаю как мне разделить их так, чтобы независимости от значения таймеров после команды клиента по отправке видоеданных, приходили только видеоданные, а после отправки клиентом команды получения аудио приходили только они. И никогда не нарушали бы этот порядок.
Происходит примерно так:

Код:

Клиент: WriteLn('Get_aud')
            readStream(aud_stream)

Сервер: if ReadLn = 'Get_aud' then 
            writeStream(Aud_stream)

Тоже самое и по видео. Но иногда после команды клиента get_aud приходит кусок из vid_sream, соответственно вызывая всякие баги.

ух... постарался изложить как мог понятнее...

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

Условия: должен использоваться только один порт.

[Aristarh Dark]

Послк отправки данных отсылай признак окончания (сервер), до получения признака конца данных не менять тип получаемых данных (клиент).

[Yarcim]

Сообщение от Aristarh Dark

Послк отправки данных отсылай признак окончания (сервер), до получения признака конца данных не менять тип получаемых данных (клиент).

Хм...я уже так пытался делать что-то подобное. Ограничивал начало и конец данных. Запрет смены типа данных, приводит к потере отдельных пакетов (как правило аудио). И таймеры начитают работать через раз. Может конечно я что-то ни так делаю. Если приложите какой нибудь неочевидный пример, буду благодарен.

Р.S. Может быть существует какая нибудь хитрая инструкция к процедуре не прерывать выполнение пока процедура не завершится. Я так понимаю таймеры как-то перехватывают выполнение кода на себя, даже если текущая процедура не завершена.

[Aristarh Dark]

Код:

procedure Timer1OnTimer(Sender:TObject);
begin
  Timer1.Enabled:=False;
  SomeWork(somedata);
  Timer1.Enabled:=True;
end;

оно?

[Yarcim]

Сообщение от Aristarh Dark

Код:

procedure Timer1OnTimer(Sender:TObject);
begin
  Timer1.Enabled:=False;
  SomeWork(somedata);
  Timer1.Enabled:=True;
end;

оно?

Неа, стало немного лучше, но проблема осталась. В любом случае спасибо буду разбираться.