Delphi Forum

öncelikle çok güzel bir soru sordunuz :D

dün denediğimde kodla ilgili hatalar alıyordum derlemiyordu..

bugün sıfırdan tekrar yeni proje açıp denedim..

şimdi kullandığım şeyler:

server:

var asd:Tstream;
begin
asd:=Tmemorystream.Create;
listbox1.Items.SaveToStream(asd);
if athread.Connection ...

Indy ile stream yazıp okumakta hatalar alıyorum..
indy 9 kullanıyorum.Eğer işimi indy 10 görücekse onu da kurabilirim
indy 10'da da denedim bu olayı onda da yapamadım

denediğim kod:
athread.connection.readstream(stream);
athreac.connection.ReadStream(stream,-1,false); (ve türevleri..false ı true ...

Eğere canvas üzerine yazsaydı WM_SETTEXT'in de çalışmaması gerekmez miydi?

ve bir Edit'e canvas ile nasıl yazı yazdırabilir ki?
Sonuçta bu oyun online bir oyun ve yazdıklarını server'a göndermesi gerekiyor. Eğer Canvas olursa gönderememesi lazım :S

Eski versiyon'da aldığın TEdit'in yeri değişmiş sen bir önceki boş olanını alıyor olabilirsin. Veya belki de sınıf adı artık TEdit bile değildir. Gerçi sen yazabiliyorum ama okuyamıyorum demişsin bu da manidar bir durum ama bence kodlarında atladığın bir yer vardır.

Aşağıdaki kodu bir button ...

yazdığımı okumuyorsunuz sanırım..

ben diyorum ki ben zaten bunları yaptım.
programın eski version'unda o editbox'un değerini alabiliyordum.
yeni versionda aynı kod ile edit'teki değeri alamıyorum.

WM_SETTEXT ile komut yolladığımda ise program çalışıyor.
Yani edit'e kendi progrmaımdan yazı ...

Arkadaşlar ben başka bir programdaki edit kutusunda yazanı okumak istiyorum.
Programın eski versiyonunda Enumproc fonksiyonunu kullanarak yazanı alıyordum.
Yeni version'unda ise bu fonksiyonu kullandığımda hep boş olarak sonuç döndürüyor.


function EnumProc(wnd: HWND): BOOL; stdcall;
var
buf ...

bir güvenlik programı yazıyorum ve bu programa dışarıdan erişilmesini engellemek istiyorum.
Dışarıdan readprocessmemory ve writeprocessmemory api'leriyle erişebilirler sadece.Bunu engellemek için "readprocessmemory fonksiyonu çağırılmışsa şunu şunu yap" koduna ihtiyacım var.
internette araştırma ...

ramden kasıt sanırım CTRL alt del menüsü ile task manager kastediliyor. bunu yapsanız bile programınız bir çok antivirüse takılıp virüs muamelesi görecektir. bunun yerine uygulmanızın kapatılmasını şifreye bağlayıp şifre girilmeyince kapatılmasını engelleyip process kill edilse bile yeniden ...

evet arkadaşlar yazdığımız programı cheat engine , winhex vs. gibi programlardan gizlemek için yapabileceğimiz birşey var mı?

bnm server-client ilişkisiyle ilgili birkaç sorum olacak..

1-) idtcpserver'dan belli bir ip'ye mesaj yazabilir miyim.Yani tcpclient gibi çalıştırabilir miyim?
(mesela butona tıklandığında athread.connection.writeln yapacak..)

2-) ben bi form'a idtcpserver koydum.Onexecute ve Onconnect'e "memo ...

timer da kullanabilirsin.

direk olarak =>


procedure TForm1.Timer1Timer(Sender: TObject);
begin

//timer1.tag => kaçıncı kez basılıyor
//form1.tag => kaçıncı kez döngü dönüyor.

case timer1.Tag of
1:
begin
if form1.tag<12 then
begin
form1.tag:=form1.tag+1;
//işlemler -- memo1.lines.add(inttostr ...

forumdaki & google'daki bu konuyla ilgili herşeyi inceledim..

ancak işimi tam olarak görebilecek birşey bulamadım..

benim sorunum tam olarak şu;

ben programımdan winexec komutu ile bir oyunu çalıştırıyorum.
oyun çalıştıktan sonra kullanıcı adı - şifre bölümünü programın yazmasını istiyorum ...

bu sorunu da aşağıdaki kodu kullanarak geçtim.

select @strSQL = 'DECLARE curObjects CURSOR FOR Select TOP '+@berkin+' sum(x.sprobability) from (select Top '+@berkin+' * from treasure_probability) as x where btype='+cast(@ney as varchar(1))+' group by btype'


şimdi sorum =>

benim istediğim ...

yazdığım sorunu

select @strSQL = 'DECLARE curObjects CURSOR FOR Select TOP '+@berkin+' sum(sprobability) from treasure_probability where btype='+cast(@ney as varchar(1))+' group by btype'
EXEC(@strSQL)
open curObjects fetch next from curObjects into @alper
select @alper,@random--while (@@fetch ...

bir tablom var.
bu tabloda
1-) isim
2-) olasılık
yazıyor.

ben bu olasılıklara göre rastgele bir isim seçmek istiyorum.
bunun için bir stored procedure yazmaya çalıştım.


önce

select @upper=sum(sprobability) from treasure_probability

diyerek tüm olasılıkları topladım.

daha sonra bu @upper ile ...