Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 21.11.2017, 00:10   #21
Aliens_wolfs
Участник клуба
 
Регистрация: 16.12.2009
Адрес: Санкт-Петербург
Сообщений: 741
Репутация: 335
По умолчанию

Код:

except
Showmessage(SysErrorMessage(GetLastError));

Либо так

Код:

except on E: exception do
ShowMessage(e.messages);

Для подробной инфы набери в поисковике except ошибка Delphi

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

Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
Код:

except
Showmessage(SysErrorMessage(GetLastError));

Либо так

Код:

except on E: exception do
ShowMessage(e.messages);

Спасибо! Буду пробовать!
LikanGT вне форума   Ответить с цитированием
Старый 21.11.2017, 00:28   #23
LikanGT
Новичок
Пользователь
 
Регистрация: 19.11.2017
Сообщений: 18
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Старый 21.11.2017, 00:42   #24
LikanGT
Новичок
Пользователь
 
Регистрация: 19.11.2017
Сообщений: 18
Репутация: 10
По умолчанию

Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
Код:

except
Showmessage(SysErrorMessage(GetLastError));

Либо так

Код:

except on E: exception do
ShowMessage(e.messages);

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

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

Последний раз редактировалось LikanGT; 21.11.2017 в 00:50. Причина: доп инфа
LikanGT вне форума   Ответить с цитированием
Старый 21.11.2017, 10:07   #25
Aliens_wolfs
Участник клуба
 
Регистрация: 16.12.2009
Адрес: Санкт-Петербург
Сообщений: 741
Репутация: 335
По умолчанию

Цитата:
Кстати, из потока безопасно использовать Шоу Меседж?
Не очень хорошо напрямую вызывать этот диалог из потока, но можно через 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 в 16:12.
Aliens_wolfs вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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




02:41.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru