Johnatan:

if ($_GET[‘fid’] == 1) header(’Location: http://www.example.com/’);

или

switch ($_GET[‘fid’]) {
case 1:
  header(’Location: http://www.example.com/’);
break;

case 2:
  header(’Location: http://www.example2.com/’);
break;

default:
  header(’Location: http://www.default.com/’);
}

Тема на форуме

Начинающий программист может столкнуться и с такой проблемой. Для этого у компонента TWebBrowser имеется свойство:

Webbrowser1.Navigate(edit1.text);

Тема на форуме

Stilet:

Могу предложить такое:

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Grids, StdCtrls, ComCtrls;

type
   TForm1 = class(TForm)
     ListView1: TListView;
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure ListView1CustomDrawItem(Sender: TCustomListView;
       Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var b:TBitmap;
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var e,i:integer;
begin
   b:=TBitmap.Create;
   b.LoadFromFile(’D:\stasya_ru_2_big.bmp’);
   for i:=1 to 100 do begin
     with ListView1.Items.Add do begin
       Caption:=TimeToStr(now);
       for e:=1 to 100 do SubItems.Add(TimeToStr(now));
     end;
   end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   b:=nil;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
   Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
const c=3;
var ARect:TRect;
begin
   DefaultDraw:=false;
   ARect:=Item.DisplayRect(drBounds);
   BitBlt(Sender.Canvas.Handle,ARect.Left+c,ARect.Top+c,ARect.Right-ARect.Left-c,
   ARect.Bottom-ARect.Top-c,b.Canvas.Handle,ARect.Left,ARect.Top,SRCCOPY);
end;

end.

Тема на форуме

Есть текстовый файл из 1000 строк. Там надо заменить слово “S1000″ на “S1200″, “Z100. на Z0.” , то есть многострочная замена.
Через что лучше и удобнее сделать такое?

var s:tstringlist;
begin
   s:=tstringlist.create;
   s.LoadFromFile(’файл’);
   s.text:=StringReplace(s.Text,’ S1000′,’ S1200′,[rfreplaceall]);
   s.SaveToFile(’файл’);
   FreeAndNil(s);
end.

Тема на форуме

От ведущего.

Добрый день, дорогие читатели. Сегодня выходит 68 выпуск рассылки клуба.

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

Новые интересные статьи клуба программистов.

Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки. Так же здесь обзор топиков форума и блога программистов.

Как получить слово под курсором с помощью делфи.

raxp:

пользуйте DirectUI

// перехват слова под курсором-
SetTimer(Handle, 1, 100, @RecalcText);

// слово под курсором-
procedure RecalcText(Wnd: HWND; uMsg, idEvent: UINT; dwTime: DWORD); stdcall;
var P: TPoint;
A: IAccessible;
V: Variant;
begin
if GetCursorPos(P) and ((P.X OldPoint.X) or (P.Y OldPoint.Y)) then begin
OldPoint:= P;
try
if Succeeded(AccessibleObjectFromPoint(P, A, V)) then
//sp.speeks(A.accName[V])
Caption := A.accName[V] + ‘ = ‘ + A.accValue[V]
else ;
except end
end
end;
подробнее на форуме

Fortress 2. Лучший бот. Этап второй

Не успел завершиться первый этап конкурса на создание лучшего бота, как начинается второй.
Ориентировочная дата второй битвы ботов 15 августа.

Все кто только присоединился могут почитать обсуждение первого этапа

Для тех кто только узнал об игре ключевые понятия игры.

Описание базовой версии игры для второго этапа.

Скачать Fortress 2 Build 2060 RC2

Принимается конструктивная критика, предложения по части баланса игры.
Если кому-то не нравится интерфейс игры, пишите в личку я дам исходники FortUI.dll.

Тема на форуме

Использование оператора goto в современных программах

Electron:

Можно ли при написании современных программ использовать оператор goto. И не могу понять почему все так избегают этот оператор как злую собаку. Все равно на низком уровне после дизассемблирования там же есть что то вроде jmp,jz,jnz(тоже goto). Так почему же на ЯВУ нельзя?

Присоединится к обсуждению

Универсальный совет для дизассемблирования

Это очень обширная тема, и, естесственно, не бывает универсальной методики, а бывают килограммы книг по дизассемблированию (копать в сторону Криса Касперски). Но вот есть что-то общее для этой темы:

Тема на форуме. Присоединиться к обсуждению.

Как установить принтер. WinApi и С++

TCHAR temp[MAX_PATH];
DWORD size = MAX_PATH;
GetDefaultPrinter(temp, &size);

HDC hDC = CreateDC(NULL, temp, NULL, NULL);

if(hDC){
  DOCINFO docinfo;
  docinfo.cbSize          = sizeof(docinfo);
  docinfo.lpszDocName = _T("Simple");
  docinfo.lpszOutput    = NULL:
  docinfo.lpszDatatype = _T("EMF");
  docinfo.fwType        = 0;

  if(StartDoc(hDC, &docinfo) > 0){
    if(StartPage(hDC) > 0){
      TextOut(hDC, ....);

      EndPage(hDC);
    }
    EndDoc(hDC);
  }

  DeleteDC(hDC);

Тема на форуме.

Перемещение TImage по форме. Как это сделать?

Описано два способа как это можно сделать. Достаточно подробно.

Тема на форуме

Delphi+MySQL. Какой компонент можно использовать?

MySQL Data Access Components v5.90.0.57 (Delphi 5-2010)

MySQL Data Access Components (MyDAC) – это расширенная библиотека VCL / VCL DOT NET / CLX компонентов для быстрого прямого доступа к серверам MySQL из Delphi, C++Builder и Kylix. MyDAC тщательно протестирован на производительность и стабильность для обеспечения наиболее быстрого соединения по сетевому протоколу с MySQL.

— Прямой доступ к данным сервера. Не требует установки других средств доступа к данным (таких как BDE и ODBC).
— В Direct режиме не требует клиента MySQL, а работает напрямую через TCP/IP.
— Полная поддержка последних версий MySQL и всех типов данных MySQL.
— Disconnected Model с автоматическим контролем соединения для работы с данными в режиме offline.
— Local Failover для обнаружения потери соединения и перевыполнения определенных операций.
— Все типы локальной сортировки и фильтрации.
— Автоматическое обновление данных с помощью компонентов TMyQuery, TMyTable и TMyStoredComponents.
— Поддержка Unicode и национальных кодировок.
— Поддержка специфических для MySQL типов данных и функций, таких как блокировка, типы данных SET и ENUM.
— Расширенная функциональность выполнения скриптов при помощи компонента TMyScript.
— Поддержка макроподстановок в текстах запросов.
— Интеграция с MySQL Developer Tools для решения сложных задач разработки и администрирования баз данных.
— Простая миграция с BDE с помощью Migration Wizard.

Тема на форуме

Gif анимация в delphi

Пример кода, как сделать так что бф в Delphi воспроизводилась gif анимация.

Тема на форуме

Как в Delphi сделать принтскрин и пережать в jpeg формат?

procedure GetRS(RS:TBitmap; Path: string);
var
c: TCanvas;
r: TRect;
jpgImg: TJPEGImage;
begin
c:=TCanvas.Create;
c.Handle:=getWindowDC(GetDesktopWindow);
try
r:=Rect(0,0,screen.Width,screen.Height);
RS.Width:=screen.Width;
RS.Height:=screen.Height;
RS.Canvas.CopyRect(r,c,r);
RS.SaveToFile(Path);
jpgImg := TJPEGImage.Create;
jpgImg.Assign(RS);
jpgImg.SaveToFile(Path)
finally
ReleaseDC(0,c.Handle);
c.Free;
jpgImg.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
b: TBitMap;
begin
b:=TBitMap.Create;
GetRS(b,ExtractFilePath(Application.ExeName) + IntToStr(i) + ‘.jpg’);
b.Free;
Inc(i);
end;

Тема на форуме

Загрузка bmp в TImage на WinApi

Пример кода. Достаточно большой для публикации в рассылке.

Подробнее на форуме.

Как скомпилировать приложение под линукс из visual studio 2010

Ну, “писать кроссплатформеные приложения” можно хоть в блокноте. Если тебе удобнее делать это в студии – то делай это в студии. Нужно просто быть уверенным, что в твоём коде:

• Не используются никакие расширения языка, введённые в Microsoft Visual C++, то бишь, проще говоря, твой код соответствует стандарту
• Не используются вызовы WinAPI функций
• Используются только кроссплатформенные библиотеки

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

Если работать всё-таки ну ОЧЕНЬ хочется имено в студии, и при этом ну ОЧЕНЬ хочется собирать свой код под другие платформы не выходя из студии, то можно завести виртуалку с Linux`ом, поднять ssh-доступ в гостевой системе и написать скрипт, который будет передавать весь код в гостевую систему, запустит процесс компиляции, запишет сообщения об ошибках в лог и заберёт файл с логом. Ну а запуск этого скрипта можно повесить на кнопку на панели в Visual Studio. Таким образом ты сможешь вести всю разработку в Visual Studio, время от времени собирая свой код в другой систе
ме, чтобы убедиться, собирается ли код вообще).

Не идеальное решение. Следите за темой на форуме за дополнительными, более удобными способами.

Немного юмора.

***

— Дорогой, ты знаешь, что мой гинеколог – мужчина? В каком-то смысле он
знает меня лучше, чем ты!
— Разумеется, ведь я – простой юзер, а он – сисадмин..

***

Заходит сисадмин в церковь и спрашивает у батюшки:
— На какую иконку у вас тут кликать, чтобы юзеры левые заряженные проги
на компы не ставили?
Батюшка отвечает:
— У нас не иконки, у нас образа, и не помогут они в такой печали.
Возвращайся в свой офис, сын мой, и кликай по образам юзеров.

***

Сын админа кричит:
— РОР3!
— Какой умный, в пять лет…
— Я покакал, поп три!

***

Sun.Zu: кстати, у меня бабушка – сисадмин
Sun.Zu: она периодически мимо комнаты проходит и спрашивает: “Митя?”
Sun.Zu: шоб узнать дома ли я
Sun.Zu: пингует )

***

Посетите раздел юмора на форуме, который обновляется постоянно

Читать этот номер в клубе.

mutabor:

Я тут расспрашивал вас о разных компонентах. Хочу тоже поделиться полезной информацией. Если кому нужны будут компоненты для перетаскивания, посмотрите на эти, очень хорошая вещь.

Тема на форуме

Posted by bullvinkle under Исходники, Пост-обзор

Код:

……………………
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
BitBuf: TBitMap;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
BitBuf:= TBitMap.Create;
BitBuf.LoadFromFile(’1.bmp’);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
BitBuf.SaveToFile(’1.ico’);
end;

end.

На форму “бросьте” кнопку Button1, в папку с проектом – файл BMP (как пример – 1.bmp) для преобразования в иконку (32 х 32 pixels).

Тема на форуме.

Вложения

Parser.rar (7.5 Кб)

Тема на форуме.

{
  Данный код был спроектирован в среде APIx - Visual WinAPI 2
  Copyright (c) PiddleSoft 2004-2006
  http://piddlesoft.narod.ru
  piddlesoft@mail.ru

  Дата генерации листинга - 19.07.2010 16:05:36
}

program APIx_Project26;

uses
  windows, messages, commctrl; //Используемые модули

// Иконка
{$R 'icon.res'}

var
  WinClass : TWndClass; //переменная класса TWndClass для создания главного окна
  hInst : HWND; //хандлер приложения
  Handle : HWND; //локальный хандлер
  Msg : TMSG; //сообщение
  Bmp : HBITMAP;
  hFont : HWND; //хандлер шрифта
  Image1 : HWND; //TImage

{$R 'D:\_MainDir\APIx 2 - Visual WinAPI\temp\bitmaps.res'}
procedure ShutDown; //процедура завершения программы
begin
  DeleteObject(hFont); //удаление шрифта
  UnRegisterClass('TAPIxForm', hInst); //удаление окна
  ExitProcess(hInst); //закрытие программы
end;

function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall; //обработчик сообщений
begin
  Result := DefWindowProc(hwnd, msg, wparam, lparam);
  case Msg of

  WM_DESTROY: ShutDown;
  end;
end;

begin
hInst := GetModuleHandle(nil);
  with WinClass do
  begin
   Style := CS_PARENTDC; //стиль класса главного окна
   hIcon := LoadIcon(hInst, MAKEINTRESOURCE('APIXICON')); //иконка программы
   lpfnWndProc := @WindowProc; //назначение обработчика сообщений
   hInstance := hInst;
   hbrBackground := COLOR_BTNFACE + 1; //цвет окна
   lpszClassName := 'TAPIxForm'; //класс окна
   hCursor := LoadCursor(0, IDC_ARROW); //активный курсор
  end;
InitCommonControls;
RegisterClass(WinClass); //регистрация класса в системе

// Создание главного окна программы
Handle := CreateWindowEx(0, 'TAPIxForm', 'Форма1',
WS_OVERLAPPEDWINDOW or
WS_VISIBLE or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SYSMENU,
219, 116, 550, 366,
0, 0,
hInst, nil);

// Создание шрифта
hFont := CreateFont(
-11, 0, 0, 0, 0, 0, 0, 0,
DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,
DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');

Image1 := CreateWindow(
'Static',
'' ,
WS_CHILD or SS_BITMAP or WS_VISIBLE,
104, 88, 225, 145, Handle, 0, hInst, nil);
SendMessage(Image1, WM_SETFONT, hFont, 0);
Bmp := LoadBitmap(hInstance, MAKEINTRESOURCE('Image1'));
SendMessage(Image1, STM_SETIMAGE, IMAGE_BITMAP, Bmp);

  // Цикл сбора сообщений
  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg); //прием сообщений
    DispatchMessage(Msg); //удаление сообщений из очереди
  end;
  end.

bmp – это HBitmap

Тема на форуме.

procedure GetRS(RS:TBitmap; Path: string);
var
  c: TCanvas;
   r: TRect;
   jpgImg: TJPEGImage;
begin
   c:=Tc.Create;
   c.Handle:=getWindowDC(GetDesktopWindow);
   try
      r:=Rect(0,0,screen.Width,screen.Height);
      RS.Width:=screen.Width;
      RS.Height:=screen.Height;
      RS.Canvas.CopyRect(r,c,r);
      RS.SaveToFile(Path);
      jpgImg := TJPEGImage.Create;
      jpgImg.Assign(RS);
      jpgImg.SaveToFile(Path)
finally
      ReleaseDC(0,c.Handle);
      c.Free;
      jpgImg.Free;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   b: TBitMap;
begin
   b:=TBitMap.Create;
   GetRS(b,ExtractFilePath(Application.ExeName) + IntToStr(i) + ‘.jpg’);
   b.Free;
   Inc(i);
end;

Тема на форуме