raxp
В обработчике сообщений главного окна после создания назначаем обработчик FrameCallBack:

var

  DC    : HDC;

  Bt    : BITMAPINFO;

  h_wnd : HWND;

  h_cam : HWND;

  buf   : array [0..640 * 480 * 3] of Byte; // изображение-эталон

...

// создание главного окна приложения

  with wnd do

  begin

    cbSize        := SizeOf(wnd);

    lpfnWndProc   := @WndProc;

  ...
// создание невидимого окна захвата

  h_cam := capCreateCaptureWindowA(nil, WS_CHILD or WS_VISIBLE, 0, 0, 0, 0, h_wnd, 0);

// получаем идентификаторы графического контекста главного окна

  DC  := GetDC(h_wnd);
// настройка драйвера

  if SendMessage(h_cam, WM_CAP_DRIVER_CONNECT, 0, 0) <> 0 then

  begin

    SendMessage(h_cam, WM_CAP_GET_VIDEOFORMAT, SizeOf(Bt), LongInt(@Bt));

    Bt.bmiHeader.biWidth    := 320;

    Bt.bmiHeader.biHeight   := 240;

    Bt.bmiHeader.biSize     := SizeOf(Bt.bmiHeader);

    Bt.bmiHeader.biPlanes   := 1;

    Bt.bmiHeader.biBitCount := 24;

    SendMessage(h_cam, WM_CAP_SET_VIDEOFORMAT, SizeOf(Bt), LongInt(@Bt));

    SendMessage(h_cam, WM_CAP_SET_CALLBACK_FRAME, 0, Integer(@FrameCallback));

  end

...
function WndProc(hwnd: DWORD; message: UINT; wParam: Longint; lParam: LongInt): LongInt; stdcall;

begin

  case message of

 ...

  // получаем кадр по таймеру

    WM_TIMER       : SendMessage(h_cam, WM_CAP_GRAB_FRAME, 0, 0);

  end;

  Result := DefWindowProc(hwnd, message, wParam, lParam);

end;

И сам кадр уже в каллбэке:

function FrameCallback(hWnd: HWND; lpVHdr: PVIDEOHDR): DWORD; stdcall;

type

  TByteArray = array [0..1] of Byte;

  PByteArray = ^TByteArray;

var

  i, j   : Integer;

  sum    : Single;

  status : TCapStatus;

  str    : string;

begin

  Result := 0;

  // информация о изображении

  SendMessage(hwnd, WM_CAP_GET_STATUS, SizeOf(status), Integer(@status));

// получаем эталон

  if first then

  begin

    Move(lpVHdr^.lpData^, buf, lpVhdr^.dwBytesUsed);

    first := False;

  end;
// вычисление объектов

  for i := 0 to status.uiImageWidth * status.uiImageHeight - 1 do

  begin

    sum := 0;

    for j := 0 to 2 do

      sum := sum + abs(buf - PbyteArray(lpVHdr^.lpData));

    sum := sum / 3;

    if sum > SENS then

    begin

      PbyteArray(lpVHdr^.lpData) := (buf + PbyteArray(lpVHdr^.lpData)) div 4;

      PbyteArray(lpVHdr^.lpData) := (buf + PbyteArray(lpVHdr^.lpData)) div 4;

      PbyteArray(lpVHdr^.lpData) := min(buf + PbyteArray(lpVHdr^.lpData), 255);

    end else

      for j := 0 to 2 do

        PbyteArray(lpVHdr^.lpData) := buf;

  end;
// вывод результата в окно

  bt.bmiHeader.biWidth  := status.uiImageWidth;

  bt.bmiHeader.biHeight := status.uiImageHeight;

  StretchDIBits(DC, 0, 0, 640, 480, 0, 0, status.uiImageWidth, status.uiImageHeight, lpVHdr.lpData, bt, 0, SRCCOPY);
end;

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

NBSTUDIO
вот нашел решение с помощью этой функции:

BitBlt(dest.Canvas.Handle, 0, 0, dest.Width,

  dest.Height, src.Canvas.Handle,

   dest.Left, dest.Top, SRCCOPY);

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

  procedure FormCreate(Sender: TObject);

  private

    hwndNextViewer: THandle;

    procedure WMChangeCbChain(var Message: TWMChangeCBChain); message WM_CHANGECBCHAIN;

    procedure WMDrawClipboard(var Message: TMessage); message WM_DRAWCLIPBOARD;

....................................................

................................

..............................

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

begin
 keybd_event(VK_SNAPSHOT, 0, 0, 0);

 keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0);
end;
procedure TForm1.FormCreate(Sender: TObject);

begin

  hwndNextViewer := SetClipboardViewer(Handle);

end;
procedure TForm1.WMChangeCbChain(var Message: TWMChangeCBChain);

begin

  with Message do

begin

  if Remove = hwndNextViewer then

     hwndNextViewer := Next

  else

   if hwndNextViewer <> 0 then

     SendMessage(hwndNextViewer, Msg, Remove, Next);

 end;

end;
procedure TForm1.WMDrawClipboard(var Message: TMessage);

begin

if IsClipboardFormatAvailable(CF_BITMAP) then

begin

   Image1.Picture.Assign(Clipboard);

   Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + 'temp.bmp');

end;
end;

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

zhan313

code segment para public 'code'

assume cs:code,ds:code,ss:code,es:code

org 100h

start:

jmp m1000

np1 db 'BBedite 4isla$'

max1 db 100

rd1 db ?

str1 db 101 dup(?)
m1000:

mov ah, 09h

lea dx, np1

int 21h
mov ah,2

mov dl,0ah

int 21h

mov dl,0dh

int 21h
mov ah,10

lea dx,max1

int 21h
mov ah,2

mov dl,0ah

int 21h

mov dl,0dh

int 21h
lea si,str1 ; ищем наибольшую цифру

mov ch,0

mov cl,rd1

mov dl,0

m1:

cmp dl,[si]

ja m2

mov dl,[si]

m2:

inc si

loop m1
lea si,str1

add dl,[si+4] ; наибольшая+5-я цифра

sub dl,60h ; переводим в число

mov dh,dl

cmp dh,10 ; сумма >= 10

jb m3

sub dh,10 ; выделяем единицы из суммы

mov dl,'1' ; выводим 1 (сумма не превышает 18)

int 21h

m3:

mov dl,dh ; выводим единицы суммы

add dl,'0' ; преобразуем в символ

int 21h
mov ah,4ch

int 21h

code ends

end start

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

var

  sDirName: PWideChar;  //имя папки

  dAttr: DWord;            //атрибуты папки

begin

  sDirName:= PWideChar(Edit1.Text); //  Edit1 должен быть на форме 

  if CreateDirectory(sDirName, nil) then // создание папки

  begin

    dAttr:= GetFileAttributes(sDirName);  // получение атрибутов папки

    // Установка новых атрибутов

    dAttr:= dAttr + FILE_ATTRIBUTE_SYSTEM + FILE_ATTRIBUTE_READONLY +

      FILE_ATTRIBUTE_HIDDEN;

    SetFileAttributes(sDirName, dAttr);

  end;

end;

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

Задумался о программировани под linux.

Знаю, что есть Lazarus. Прошу убедить меня в том, что лазарус стоит того, чтобы помучаться с ним и пописать на нем. Можно пару примеров успешный проектов Win/Linux

Задумываюсь ,что это все же большие грабли, которые я себе строю и на которые рано или поздно, но наступлю.

Хочеться писать ПО в обе стороны. С чего начать? Точнее, на какой ЯП можно легко и плавно перейти с Delphi(Object Pascal)?

Интересует управление системой(Shell), запуск/остановка процессов, сервисов/демонов, многопоточность, ввод/вывод не GUI приложений, тамошние окна(GUI).

Человек_Борща
на Lazaruse написаны следующие продукты:
1. GLScene
2. Cheat Engine
3. Total Commander 8 x64

Так что не говорите если не распробовали его полностью.

Из минусов, которые я там нашел:
1. Нет толковой справки
2. Нет расширений IDE, да они пока и не надо.
3. толстые бинарники(ага, если нифига не настроить компилятор).

Из плюсов:
1. Тонкая настройка компилятора(Delphi XE2 и не снилось!)
- – Сборка под разные платформы, коих больше 12!
- – Сборка под разные архитектуры и модели процессора.
- – Тонкая настройка оптимизации.
- – Разные отладочные плющечки.
2. Проекты также кроссплатформенные, я спокойно пишу под windows, а для компиляции на Linux, я запускаю вирт. машину и одним нажатием кнопки собираю бинарный вариант.
3. Бинарники получаются компактными, их и UPX дожать можно.
4. исходники FPC, Lazarus, отладчика в открытом виде.
5. LCL, RTL, VCL документированы в исходниках.

FPC куда мощьнее delphi XE2.

А вот c# приглянулся. Можно подробнее о сборке под разные системы? Из вашего спора с Utkin’ым, не понятно, кто прав а кто виноват(О да, я подлил масла в огонь).

BOBAH13
Кроссплатформенность на уровне байт кода:
1. Огромный список JVM языков (Java, Scala, Clojure, другие J* от ruby, python и др.)
2. .NET ну тут или VB или C#

Кроссплатформенность на уровне бинарного кода:
Тут советую, разумеется, С или С++.

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

Пепел Феникса

var

 s:TMemoryStream;

 begin

 s:=TMemoryStream.Create;

 IdHTTP1.Get('programmersclub.ru/',s);

 s.Position:=0;

 Memo1.Lines.LoadFromStream(S);

 s.Free;

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

InitNetwork()

Procedure.s SendModemData(Connect, Command.s)

  Protected Result.s="", Count=0, x

  Command=Command+Chr(13)+Chr(10)

  SendNetworkData(Connect, @Command, Len(Command))

  Repeat

    Delay(20)

    If NetworkClientEvent(Connect)=#PB_NetworkEvent_Data

      Count=0

      *mem=AllocateMemory(10000)

      If *mem

        ReceiveNetworkData(Connect,*mem,10000)

        In.s=PeekS(*mem)

        FreeMemory(*mem)

        Result=Result+In

      EndIf

    EndIf

    Count+1

  Until Count>=40

  ProcedureReturn Result

EndProcedure
Connect=OpenNetworkConnection("192.168.1.1", 23) ; IP адрес модема и порт.

If Connect

  Delay(50)

  SendModemData(Connect, "admin") ; Логин.

  SendModemData(Connect, "admin") ; Пароль.

  Delay(400)

  SendModemData(Connect, "adsl connection --down") ; разорвать DSL-соединение.

  Delay(2000)

  CloseNetworkConnection(Connect)

EndIf

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

Во вложении, скомпилированная программа.

ADSL.rar (2.5 Кб)

И еще такой вопрос интересует как обратный коннект) Это возможно?

Connect=OpenNetworkConnection("192.168.1.1", 23) ; IP адрес модема и порт.

If Connect

  Delay(50)

  SendModemData(Connect, "admin") ; Логин.

  SendModemData(Connect, "admin") ; Пароль.

  Delay(400)

  SendModemData(Connect, "adsl connection --down") ; разорвать соединение.

  Delay(2000)

  SendModemData(Connect, "adsl start --up")

  SendModemData(Connect, "adsl connection --up")

  Delay(2000)

  CloseNetworkConnection(Connect)

EndIf

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

Noor
Скачав программу devcon.exe – это консольный диспетчер устройств. С его помощью можно влкючать/отключать различные устройства типо net адаптеров.

devcon enable/disable <hardware id>

Пример:

devcon disable PCI\VEN_1104

devcon enable PCI\VEN_1104

<hardware id> вашего сетевого адаптера можго посмотреть Диспетчер устройств – сетевые адаптеры «правой кнопкой мыши по вашему сетевому адаптеру Свойства – сведения – ID оборудования»

или попробуй

netsh.exe interface ip Set address "Local Area Connection" static 172.248.0.40 255.255.0.0 172.248.0.1 1

netsh.exe interface ip Set dns "Local Area Connection" static 69.7.175.146

netsh.exe interface ip Add dns "Local Area Connection" 69.7.175.148 index=2

Вот еще вариант
В cmd набери «sc query type= driver», найди службу отвечающую за сетевуху, а потом используй «sc stop имяслужбы», «sc start имяслужбы».
Справка «sc /?»

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

procedure TForm1.Button1Click(Sender: TObject);

begin

  Form1.Caption := IntToStr(Integer(CheckBox1.Checked) );

end;

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