Форум: "Система";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизПередача файлов через 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]По ходу никто не работал, что же будем искать...
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.014 c