Передача файлов через Async32

← →
Новик © (2003-04-03 09:38) [0]

Люди! Кто работал с библиотекой Async? Объясните, где у меня ошибка. Устанавливаю соединение между двумя модемами и передаю файл (например с:\rar.rar)с того, кто набрал номер тому кто поднял трубку.

procedure TForm1.VaModem21Connect(Sender: TObject;
const ConnectString: String);
begin
Memo1.Lines.Add("Соединение установлено: "+ConnectString);
try
if bAct then //если модем сам набрал номер передаем файл
begin
VaZModem1.Files.Clear;
VaZModem1.Files.Add("C:\rar.rar");
VaZModem1.Mode := tmUpload;
VaZModem1.Execute;
end
else //если модем поднял трубку принимаем файл
begin
VaZModem1.TargetFolder:=ExtractFilePath(Application.ExeName);
VaZModem1.Mode := tmDownload;
VaZModem1.Execute;
end;
end;

В методе Execute программа ждет положенную минуту и после ее истечению на модеме - отправителе выдается Error1, а на модеме, принимающем файл, срабатывает событие NoCarrier. То же самое происходит с X и YModem"ами. Может кто сталкивался, а то внедряться в дебри TAPI совсем не хочется.

← →
Новик © (2003-04-06 19:27) [1]

По ходу никто не работал, что же будем искать...

Передача файлов через Async32 Найти похожие ветки