Delphi Forum

Yıllar önce başlayıp da bitirmediğim bir projemi emekli olunca sonlandırmak istiyorum. Baştan söyleyelim burada maksat bir işletim sistemi yazmak değil
hobi olarak acaba Delphi ile de bir işletim sistemi yazılır mı ve sistem çalışması hakkında daha fazla bilgi edinmekti.
Kernel dosyamı Fat32 HDD ...

Delphi 7 de canvas pen width 1 den daha kücük yapılırmı. Cizginin daha ince olmasını nasıl saglarız. Örnek 0.5 gibi

Delphide TCustomControl bir nesne olusturuyoruz bunu üzerinde iki adet TShape yerlestiriyoruz.. Simdi fareyi birinci Shape üzerinde tıklıyoruz ve ikinci
Shape üzerinde bırakıyoruz.. ikinci Shape yi nasıl algılarız.. ikinci shapenin procedure MouseUp(Button:..... işlem yapamıyorum..

Merhaba Aekadaşlar...
Web sayfamı Hosting sitesine yeni resimlerle güncelliyorum. Fakat PC den www.xxxxxx.com siteme girdigimde eski görüntüsü cıkıyor. tarayıcımın web gecmisini sildigimde yeni web sayfan görünüyor. bunun icin ne yapmalıyım.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MpegStream, Menus, ExtCtrls;

CONST
PixelCountMax = 32768;

TYPE
pRGBTripleArray = ^TRGBTripleArray;
TRGBTripleArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;


type ...

unit MpegStream;

interface

uses Classes, SysUtils, Graphics,Dialogs, SyncObjs;

const
Zig_Zag_Scan:array[0..64-1] of Smallint=(
0, 1, 8, 16, 9, 2, 3, 10,
17, 24, 32, 25, 18, 11, 4, 5,
12, 19, 26, 33, 40, 48, 41, 34,
27, 20, 13, 6, 7, 14, 21, 28,
35, 42, 49, 56, 57, 50, 43, 36,
29, 22, 15 ...

tel : adb tcpip 5555
pc : adb connect 192.168.1.x : tel ipsi
ile telefonu wifi üzerinden emulator olarak kullanılıyor.

Android Services AutoRun Calışması.

public class BootCompletedReceiver extends BroadcastReceiver {

public void onReceive(Context context, Intent intent) {

if (intent.getAction().equals(Intent.ACTION_BOOT_COMPLETED)) {
Intent TestLauncher = new Intent();
TestLauncher.setClassName(context ...

// http://ipadress:port http:// ipadress:8080

//https://www.youtube.com/watch?v=krIuW71QX7A

// https://www.youtube.com/watch?v=NKrJpU1q1yk

//program calışıyor biraz düzenlemek lazım.

// http serverde MJPEG Stream protokolunu uyguluyor.

unit UntService;

interface

uses
System.SysUtils ...

Mehaba. Yeni aldıgım Android tv box cihazında Android Geliştirici Seçeneklerini bi turlü kapatamadım. Toggle butonunu kapatıyorun kendiliginden yeniden aktif oluyor. Ayarlar->uglulamalar->tumu->ayarlar->verileri temizlede işe yaramadı. ne yapmak lazım.

Can sıkıntısı ile yapılmış bir program webcam görüntüsünü mpeg-1 video formatında kayeder.
not: mpeg codları acıktır.

Sorun :tcp portuna bir mesaj gönderiyoruz bize gelen bilgini boyutunu bilmiyoruz ve veriler bize parca parca geliyor. simdi tüm veriler geldiginden ve gelen bilgini bittigini nasıl anlarız.

not:IdTCPClient kullanılıyor.

CREATE TRIGGER MUSTERILERCONNECT ON CONNECT
AS
begin
post_event ('CLIENT_ADDRESS');
end^


procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String;
EventCount: Integer; var CancelAlerts: Boolean);
begin
if EventName='CLIENT_ADDRESS' then //gelen bilgi baglantı yapan programın ip ...

sadece triggeri before insert kullansak sorun olurmu