FreePascal.ru

Всё хорошо - пошевелил немного мозгами пришёл к такому коду:


MsgMail := TMimeMess.Create; //создаем новое сообщение
MsgMail.Header.CharsetCode:=UTF_8;
MsgMail.MessagePart.CharsetCode:=UTF_8;
MsgMail.MessagePart.DefaultCharset:='UTF-8';
MsgMail&#46 ...

Lazarus 1.6.0, fpc 3.0.0
synapse 40, также проблема наблюдается в 203 trunk'е.

Здравствуйте, отправлять письма и пристёгивать файлы - получается, проблем нет.

Проблема с кодировкой пристёгнутых файлов- она меняется на системную, то есть на CP1251.

В заголовках письма выглядит так:

Content ...

VirtUX писал(а):whoSend := (Sender as TStringGrid); или whoSend := TStringGrid(Sender);
но это при условии, что Sender действительно является TStringGrid. Для надежности рекомендовал бы проверку:

Код: Выделить всё

if Sender is TStringGrid then whoSend := TStringGrid(Sender);

Спасибо!

Всем привет.

Нужно забивать табличные данные и отправлять в Excel'евский файл. Система Windows.

Собственно ничего хитрого - сделал с помощью TStringGrid.

Проверка данных производится при вводе - тож ничего сложного - сделал.

Проблема с проверкой данных в произвольной ячейке: предположим в ...

zub, благодарю за Ваш ответ.

Мною были перепробованы такие способы создания взятия скриншотов как:
- BitBlt - медленный; StrechBlt - тоже медленный и изображение страшное;
- Зеркальный_драйвер (он же mirror driver). Всё понравилось работает быстро, но есть минусы: отключает Aero( ИМХО ещё отключает ...

WinXP SP3, Lazarus.

Задача: сделать средствами Lazarus'а и Opengl скриншот.

Что странно: в интернете видел кучу таких примеров:


w:=1024;
h:=768;
bpp:=32;
glReadBuffer( GL_FRONT );
glReadPixels( 0, 0, w, h, GL_RGB, GL_UNSIGNED_BYTE, bits);


После чего в bits должен ...

Угу, workaround - они вообще весёлые... =D

Я вобщем-то студентообразный чудовищ и вот - делал такую шткуовину:

Зеркальный драйвер+приложение, которое по multicast вещает в компьютерный класс картинку рабочего стола.
Вначале использовал зеркальный драйвер uvnc, потом сделал свой.

Дык и вот - когда ...

Mr.Smart писал(а):Это зависит от квалификации программиста, а не как не от среды. FPC довольно мощный инструмент.

Теперь, Я счастлив!
Спасибо =)

Спасибо за ответ.

Пойду делать велосипеды =)
До мопедов ещё далеко, значится...

Кстати, вопрос на миллион долларов же - Lazarus уже может делать полно-приводные внедорожники или ещё только мотоциклы без прицепа? Ответ давать конечно же согласно своему мнению, кратенько без холиваров =)

Хмм...странно, что так мало людей отвечает - предварительные выводы:

1) RTP по multicast - не нужен.
2) Я задаю глупые вопросы.
3) Власти скрывают мой пост, чтобы люди не узнали всей правды об инопланетянах!!

Случай 3) зауряден, его рассматривать не будем.
В случае 1) я ничего не понимаю - проект ...

Собственно продолжение темы

http://lazarus.freepascal.org/index.php?topic=12704.0

Интересует как обстоят дела с RTP в Lazarus'е на 2012 год? Есть ли компоненты, какие-то? Планируются ли?

Окромя того в теме указанной выше есть ссылка:

https://sourceforge.net ...

Вот - появилось свободное время - думаю надо закончить эту ветку форума .

Как оказалось - можно сделать так:

dec(PInteger(myclass)^, sizeof(TVmt));

Это для всех версий freepascal насколько я понял.

Что касаемо интерфейсов. Моё рассуждение:
Если срабатывает

dec(PInteger(myclass)^, sizeof ...

Блин, ну опять мне нихто не отвечает... ...Хотя я, конечно, глупый вопрос задал... .
Ну и ладно...буду сам с собою правою рукою, вслух разговаривать .. ..
Способ 1). Действительно, чтобы изменить содержание текстуры нужно всего лишь заюзать функции glTexImage2d , или glTexSubImage2D ...

stikriz, большое спасибо за помощь
Почитал немного про интерфейсы - действительно хорошая штука . И лучше, конечно пользоваться ими...

Но отмечу 2 случая:
1) Если dll-ка так сказать "не наша" и её исходных кодов нет, а в Lazarus'е выдаёт External:SIGSEGV - тогда, я думаю можно попробовать и ...

stikriz, нет класс не является наследником IUnkown
Хотя может я чего-то незнаю...Вот код .h на c++ дллки, которую я набросал для тестов:

class __declspec(dllexport) CIncomeImp
{
public:
virtual int __stdcall GetIncome( int aNetto );
virtual void __stdcall FreeObject();
};

extern "C ...