Tip Dönüşüm Hatası

[Raskolnikov]

Merhaba;

Kod: Tümünü seç

SendTextToConversation(Conversation: THandle; Text: String);

bu kodu şu şekilde kullanınca herşey normal.

Kod: Tümünü seç

 SendTextToConversation(StrToInt(ConversationList.Strings[combobox1.ItemIndex]), edit1.Text);

Buradaki

Kod: Tümünü seç

ConversationList

TStringList tipinde bir veri;

Ama ben bunu socket ile kullandığımda hata alıyorum

Kod: Tümünü seç

var
sCmd,sData:String;
sDat:TStringList;
begin
sData := Socket.ReceiveText;
sDat := Explode('|', sData);
sCmd := sDat[0];
if scmd='text' then
begin
SendTextToConversation(StrToInt(sDat.Strings[1]), sdat[2]);// hata burada gönderdiğim değer clientte ki bir edit kutusunun içeriği//
end;

ikisi arasın da ne fark var? ikiside Stringlist tipinin index numarası?

veriyi gönderirken;

Kod: Tümünü seç

server.Socket.Connections[0].SendText('text|' + combobox1.text + '|' + edit1.Text);

kullanıyorum herşey normal client bunu integere çevirip (handle değerini) gerekli işlemi gerçekleştirmsi lazım ancak hata alıyorum

Kod: Tümünü seç

is not a valid integer value

zaten gelen veriyi çeviriyorum StrToInt ile neden bu oluyor ?

Hayırlı bayramlar

[dabaddah]

dostum yazdığın bu koddaki sDat.Strings[1] bu kısım ile sdat[2] bu kısım arasındaki fark ne?

Kod: Tümünü seç

SendTextToConversation(StrToInt(sDat.Strings[1]), sdat[2]);

bunu şunun içinde sordum sen sadece birinci parametreyi strtoint içine almışsın eğer diğer parametredede string bir değer geliyorsa onuda strtointin içine alman gerekiyor.

[Raskolnikov]

dostum yazdığın bu koddaki sDat.Strings[1] bu kısım ile sdat[2] bu kısım arasındaki fark ne?

Kod: Tümünü seç

SendTextToConversation(StrToInt(sDat.Strings[1]), sdat[2]);

bunu şunun içinde sordum sen sadece birinci parametreyi strtoint içine almışsın eğer diğer parametredede string bir değer geliyorsa onuda strtointin içine alman gerekiyor.

Hocam birinci tip Handle değeri diğer zaten string tipinde aşağıda ki procedure bakabilirsin.

Kod: Tümünü seç

SendTextToConversation(Conversation: (1.Integer)THandle; (2.String)Text: String);