(31-01-2022, Saat: 16:48)Jakarta2 Adlı Kullanıcıdan Alıntı:(31-01-2022, Saat: 16:37)vedat35 Adlı Kullanıcıdan Alıntı:var NetHTTPClient: TNetHTTPClient; reqData, resContent:TStringStream; begin NetHTTPClient:=TNetHTTPClient.Create(Self); NetHTTPClient.Accept:='application/json, text/plain, */*'; NetHTTPClient.UserAgent:='Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/97.0.4692.99 Safari/537.362'; NetHTTPClient.ContentType:='application/json; charset=utf-8'; NetHTTPClient.AcceptCharSet:='utf-8'; NetHTTPClient.ProtocolVersion:=THttpProtocolVersion.HTTP_2_0; NetHTTPClient.AllowCookies:=True; NetHTTPClient.HandleRedirects:=True; resContent:=TStringStream.Create; reqData:=TStringStream.Create('{"awardId":"61ec3aad787ff108528e02be", "nomineeId":"61ee4c2554a126230cf212a1"}', TEncoding.utf8); NetHTTPClient.Post('https://api.karisimbi.events/api/nominee/vote', reqData, resContent); memo1.Lines.Text:=resContent.DataString; NetHTTPClient.Free; resContent.Free; reqData.Free;
Teşekkür ederim çalışıyor. Bizim kod 3 saniyede 1 tane basıyor. Adam kime yazdırdıysa 2-3 dakikada 10bin oylattı. Server, internet hızı v.s. alakalı değil mi anlamadım ki? Nasıl bir anda 10bin oy artırabilir?
Gerçekten teşekkür ederim. En azından bir daha böyle bir iş geldiğinde yapabileceğimizi öğrenmiş olduk sizin sayenizde...
kodu repeat until arasına var değişkenleri ile birlikde anonthread içine alıp for döngüsü ile 1000 thread yaratıp 1 sn de sunucu cevap veriyorsa 1000 oy veya daha hızlı attırabilirsiniz, forumda thread kullanımına bakın, veya aynı request curl ilede çekilebilir, bunu loop içinde basit bir bash scriti hazırlayip, google de veya amazonda eş zamanlı 10 50 100 1000 sunucuda veya bir dc den 100 adet (saatlik) vps kiralayip oradan bu lin vps ler üzerinde paralel çalıştırmak gibi farklı yollara başvurulabilirsiniz.




