Ник Курков

Опубликовано новое видео о Delphi 2009.

Писать на Делфи многопользовательские приложения, работающие через MS SQL Server. Нужно предусмотреть кучу всего, вроде блокировки записей (чтобы два человека не могли одновременно править), безопасность и доступ, производительность, выгрузку данных и обработать ситуации, когда подключение к серверу “вдруг резко упало”.

Тут

Раскопал интересную статью по обходу файрволов, закрытию антивирусов и внедрению в процессы. Мне пока без надобности, но на заметку возьму).

Хорошее описание компонента WebBrowser

Вот как перетащить файл на форму:

uses ShellApi;

...

  public
procedure wmdropfiles(var message: tmessage); message wm_dropfiles;
end;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
// Разрешаем перетаскивание
DragAcceptFiles(Handle, true);
end;
...

procedure TForm1.wmdropfiles(var message: tmessage);
var
hdrop:thandle;
i,c:longword;
s:string;
begin
hdrop:=message.wparam;
c:=dragqueryfile(hdrop,longword(-1),pchar(nil),0);
for i:=0 to c-1 do
begin
setlength(s,dragqueryfile(hdrop,i,pchar(nil),0));
dragqueryfile(hdrop,i,pchar(s),length(s)+1);
ShowMessage(s);
end;
dragfinish(hdrop);
end;

Эта статья научит основам многопоточности в Delphi.

На этот раз буржуйский:

http://www.planet-source-code.com/vb/default.asp?lngWId=7#categories 

Очень просто! Пишем в событие OnKeyPress:
begin
case key of
'0'..'9',#8,'-':;
else
key:=#0;
end;
end;

 Как отсортировать TStringlist по дате или по числам? Смотрим ниже.

(more...)