bu program çok yavaş çalışır. tabi geliştirilebilirde...

alakasiz icq server zaten belli aralikta atmak zorundasin bir sansin var birisi paso her seferinde port degistirmek digeri ise bir timer yardimi ile zaman vermek Asla kimseye zeki gorunme hep salak rolu oyna.! :::::::my IQ 146 En sevdigim halimdir.:::::::

forma 4 tane edit1 koy bit button birde memo1 koy birtanede socket componenti procedure TForm1. Button1Click ; begin sData := ''; sData := 'POST /scripts/WWPMsg. dll HTTP/1.0' + #13+#10; //# is another word for Char in delphi sData := sData + 'Referer: http://wwp.mirabilis.com' + #13+#10; sData := sData + 'User-Agent: Mozilla/4.06 (Win95; I)' + #13+#10; sData := sData + 'Connection: Keep-Alive' + #13+#10; sData := sData + 'Host: wwp. mirabilis.com:80' + #13+#10; sData := sData + 'Content-type: application/x-www-form-urlencoded' + #13+#10; sData := sData + 'Content-length: 80' + #13+#10; sData := sData + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, / ' + #13+#10+#13+#10; sData := sData + 'from=' + FromTxt. Text + ' &fromemail=' + EmailFromTxt. Text + '&subject=' + SubjectTxt. Text + ' &body=' + BodyTxt. Text + ' &to=' + IcqNumTxt. Text + '&Send='; ClientSocket1. Active := True; end; // Componentin client connection olayina sunu yaz procedure TForm1. ClientSocket1Connect ; //inc ; begin ClientSocket1. Socket. SendText ; ClientSocket1. Active := False; end; Asla kimseye zeki gorunme hep salak rolu oyna.! :::::::my IQ 146 En sevdigim halimdir.:::::::

Arkdaslar bana Delphi ICQ Pager Codeleri lazim. Delphiturk.com"da var fakat ordaki Codeleri denedim cok gec gnderiyor. Bir masaji 1 dakika gibi uzun sürede gnderiyor bazen gndermiyor. Acaba bu isi 3-5 sn icinde yapan Delphi Code varsa lütfen buraya yazin. simdiden tesekkürler