Пьяный Дельфин от 21 января 2000

Hi !

=== 2Podgoretsky BEGIN ===

Ну ты, того, понял да :-).
Forward it

=== 2Podgoretsky END ===

Ну-с, продолжим.

На данной неделе лучшую селедку скормил дельфину Denis Klementjev, не любящий читать документацию

'Select *,:Total=Sum(Field1) from "mybase.db"'

...
 ЗЫ RTFM не пpедлагать, Local SQL guide - бесполезная вещь
Дополнительная селедка имени М. Горького присуждается Ilham Nabibulin
Как можна в Delphi3 написать прогу чтоб кунуть сообщение др компьютеру в сети?

Проект доступен в OnLine по адресу: http://podgoretsky.com/DrunkenDolphin.html
(спасибо Анатолию Подгорецкому)

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

16.01.2000 Victor I. Devgout

Есть проблема - устанавливаю Дельфи 4 (билд 5.33) - все Ок - версия 5.33, ставлю 2 сервиспак - версия становится 5.104; Ставлю 3 сервиспак - верси становится 5.108...

Что с версиями? Я где-то читал, что нормальный именно 5.33

16.01.2000 Andy Rozhevsky

Подскажите как можно проще сделать, необходимо по символу узнать его код. Например для "Б" код 193. Наоборот все понятно Символ:=Chr(код), а вот Код:=???(Символ)

16.01.2000 Tim Bursh

Кстати, я не нашел в API Win32, функции к-рая конвертирует из PChar в Pascal String.

17.01.2000 Nikolay Kozlov

FRRus-компоненты на АПИ и неписаны

18.01.2000 Denis Klementjev

'Select *,:Total=Sum(Field1) from "mybase.db"'

... ЗЫ RTFM не пpедлагать, Local SQL guide - бесполезная вещь

17.01.2000 Alexey Zemov

Да, ещё, как можно определить, является ли string'овая строка URL'ом или нет.

17.01.2000 Nikolay Kozlov

var
  i:integer;
  x:integer;
  y:integer;
begin
  if x=0 then showmessage('Hа нyль делить нельзя')
  else
    begin
    i:=y/x;
    showmessage(inttostr(i));
  end;
end;

17.01.2000 Igor Sukhov

Какие сообщения и с каком поpядке надо послать окну что-бы
сэмулить мышь ?
То есть иметь возможность двигать окно пpогpаммно

... Мышь в системе есть...

* Crossposted to SU.WINDOWS.PROG
* Crossposted to SU.WINDOWS.NT.PROG
* Crossposted to SU.WIN95.PROG
* Crossposted to SU.WIN32.PROG
* Crossposted to RU.VISUAL.CPP
* Crossposted to RU.MFC
* Crossposted to RU.DELPHI
XC:CHELNY.PROG
* Crossposted to 5049.WIN32

18.01.2000 Alexander Kramarenko

xxx as byte или byte(xxx)...

18.01.2000 Dmitry Volkov

По теме : "Скопировать файл"

Господа! У меня к вам небольшая просьба. Как на эхотаге сделать сабж?
То есть какая API функция для этого нужна? Прошу ногами не пинать, в RTFM не тыкать - все доки у меня на CD, а привод сломался :(

18.01.2000 Ilya Muchamatshin

ни кто не знает как в дельфях передавать и принимать по последовательным и параллельному портам?

18.01.2000 Alexey Klimin

Или может быть можно вызывать CreateForm не в начале программы, а только тогда, когда форма понадобится? Это кажется нереально.

19.01.2000 Mihail Babenov & Roman Budko

MB> Подскажите плиз! А-то дальше ничего не получается!
MB> Делю 19 на 10, получается число 1.90000...0Е+0000
MB> Как зделать так, чтоб число было просто 1.9 без кучи нулей???

Trunc(x)

20.01.2000 Andrei Ivanov

Как вставить значек программы в панель задач таскбара додумался, но вот проблема, subj, как убрать кнопку программы с таскбара, как у WinAmp.

20.01.2000 Ilham Nabibulin

Как можна в Delphi3 написать прогу чтоб кунуть сообщение др компьютеру в сети?

20.01.2000 Anton Larionov

Как можно реализовать программным способом копирование файлов на диске между разделами WINDOWS и NT ?

21.01.2000 Sergey Rogalsky

Пpи попытке WebBrowser1.ExecWB('OLECMDID_PRINT',0,0,0); или что-либо подобное.
[Error] Unit1.pas(751):
There is no overloaded version of 'ExecWB' that can be called with these arguments

21.01.2000 D.Masalimov

Рассмотрим ситуацию:

Мы создаем форму: MyForm := TMyForm.Create(self); Затем освобождаем ее: MyForm.Free;

Если бы указатель остался, то при следующем ее создании Эппликейшн покрыла бы нас матом, что, мол, данный объект уже создан, однако этого не происходит.

21.01.2000 Anton Abrosimov

Какие такие дpайвеpа? Кому нафиг нужен TAPI (хотя он, имхо, все это поддеpживает)? И вообще, с модемом надо pаботать быстpо, чтоб не было 10-ти-секундных задеpжек пеpед набоpом номеpа, как в большинстве пpог.

[чуть позже]

А чего в них кpутого? Чеpез паpу дней мой сеpвеp уже ничем не будет им уступать (сейчас еще нет VirtualHosts, запуска скpиптов, докачки файлов и chunked-encoding).

21.01.2000 Eugene Nikolaev

Как записать pointer на на некий объект в property Tag компонета? Кажется, нужно преобразовать его к типу Inetger, да?

21.01.2000 Alexander Swan

Пишу: Icon.Handle:=LoadIcon(NULL,IDI_APPLICATION); пpогpамма пишет что невозможно сконвеpтиpовать тип variant.

21.01.2000 andrey

В примере нашел как создать новый файл базы, теперь его нужно заполнять информацией из текстового, но как ее взять оттуда - не знаю.

Иконку в system tray (где часы) вставляют функцией Shell_NotifyIcon
Bye ... Тенцер А.Л. tolik@katren.nsk.ru
ICQ 15925834