Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2017, 23:10   #21
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

Код:
except
Showmessage(SysErrorMessage(GetLastError));
Либо так

Код:
except on E: exception do
ShowMessage(e.messages);
Для подробной инфы набери в поисковике except ошибка Delphi

Последний раз редактировалось Aliens_wolfs; 20.11.2017 в 23:16.
Aliens_wolfs вне форума Ответить с цитированием
Старый 20.11.2017, 23:16   #22
LikanGT
Пользователь
 
Регистрация: 19.11.2017
Сообщений: 18
По умолчанию

Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
Код:
except
Showmessage(SysErrorMessage(GetLastError));
Либо так

Код:
except on E: exception do
ShowMessage(e.messages);
Спасибо! Буду пробовать!
LikanGT вне форума Ответить с цитированием
Старый 20.11.2017, 23:28   #23
LikanGT
Пользователь
 
Регистрация: 19.11.2017
Сообщений: 18
По умолчанию

Цитата:
Сообщение от LikanGT Посмотреть сообщение
Спасибо! Буду пробовать!

Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
Код:
except
Showmessage(SysErrorMessage(GetLastError));
Либо так

Код:
except on E: exception do
ShowMessage(e.messages);
Для подробной инфы набери в поисковике except ошибка Delphi
Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
Код:
except
Showmessage(SysErrorMessage(GetLastError));
Либо так

Код:
except on E: exception do
ShowMessage(e.messages);
Для подробной инфы набери в поисковике except ошибка Delphi
Кстати, из потока безопасно использовать Шоу Меседж?
LikanGT вне форума Ответить с цитированием
Старый 20.11.2017, 23:42   #24
LikanGT
Пользователь
 
Регистрация: 19.11.2017
Сообщений: 18
По умолчанию

Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
Код:
except
Showmessage(SysErrorMessage(GetLastError));
Либо так

Код:
except on E: exception do
ShowMessage(e.messages);
Для подробной инфы набери в поисковике except ошибка Delphi
Кстати, используя старый метод без Мультипарт(2 версия), которую я делал, с повышенным лимитом, как вы сказали, всё работает! Уже 6 загрузок, 0 неудачных. Спасибо вам огромное! Только вот остался вопрос, не сильно ли нагружает систему юзера повышение этого лимита? Или это никак не сказывается.

Не заметил, что вы написали про файл подкачки. Т.е если увеличить размер подкачки, тормозов не будет? У меня сейчас на самом деле нет тормозов. Вот пишу, пока грузит.

Последний раз редактировалось LikanGT; 20.11.2017 в 23:50. Причина: доп инфа
LikanGT вне форума Ответить с цитированием
Старый 21.11.2017, 09:07   #25
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

Цитата:
Кстати, из потока безопасно использовать Шоу Меседж?
Не очень хорошо напрямую вызывать этот диалог из потока, но можно через Synchronize
Правильнее будет например так
Код:
В классе потока объявите 
FsError: String;

//Процедура для показа ошибки, объявите ее тоже в классе потока
procedure ThreadSEND.OnError(Sender: TObject);
begin
Showmessgae(FsError);
end;

В вашем потоке
except on E: exception do
begin
FsError:= e.messages 
Synchronize(OnError);
end;
Цитата:
Только вот остался вопрос, не сильно ли нагружает систему юзера повышение этого лимита? Или это никак не сказывается.
Все зависит от вашего железа а точнее от оперативной памяти, да и если часто будете слать большие файлы могут быть тормоза из за подкачки памяти.
Если память у вас 4гб и более то должно все нормально работать.
И не шлите одновременно несколько файлов а делайте очередность, что бы не забивать память.
Для отправки больших файлов без использования лимита памяти нужно смотреть на другие методы типа модулей Wininit, WinSock, но для работы с ними нужно много кода в ручную писать, делать свои функции

Последний раз редактировалось Aliens_wolfs; 21.11.2017 в 15:12.
Aliens_wolfs вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi срочно помощь dasf51 Фриланс 8 07.09.2017 12:53
Срочно! Помощь с циклами в Delphi Raikerock Помощь студентам 3 14.09.2014 09:27
Нужна помощь с пакетной передачей anghela Помощь студентам 18 01.12.2013 13:08
ПРоблема с передачей и сохранением файлов с помощью indi компонентов albatros Работа с сетью в Delphi 4 18.02.2009 22:39
Нужна помощь с передачей даных в процедуру programer_tang Общие вопросы Delphi 5 28.08.2008 10:14