Kamerok słuchaj czy możesz mi to przerobić:
procedure obraz(numer:integer;plik:string);
var ImageFile: TFileStream;
begin
ImageFile:=TFileStream.Create(plik,fmOpenReadWrite);
Form1.GG.GGSendImage(true,numer,ExtractFileName(plik),$FF00FF00,ImageFile);
Form1.GG.GGSendImage(false,numer,ExtractFileName(plik),$FF00FF00,ImageFile);
ImageFile.Free;
end;
tak aby było +/- z editami czyli np.
numer := Edit1.Text ? mecze sie z tym 4 dzień i szlak mnie bierze bo to niechce zadzilac. pisze program a to jak widac jest potrzebne do wyboru numery gg etc.;p
chce zeby to tak wygladało:
begin
*Label2.Caption := Edit19.Text; *tu kombinowałem
- numergg := Label2.Caption; *tu tez ;)
GG.GGInitHost;
GG.Login:=StrToInt(Edit16.Text); //pobiera z edita numer
GG.Password := Edit17.Text; //haslo z edita
GG.UserDesc := 'Wysyłam obrazek........... :D'; //niepotrzeba
GG.UserStatus := usBusyDesc;
GG.GGLogon;
GG.GGChangeUserStatus;
GG.GGAddUserNotify( tu tez mam blad); *GG.GGAddUserNotify(Edit19.Text); *:( :/ tu pobiera numer do ktorego wysyla obrazek i wywala mi tu blad:;/ czyli musi pierw dodac do znajomych :)
obraz(Edit19.Text *tu mi wywala BŁĄD,Edit5.Text); *edit5 to obrazek ;) // koniecznie zamiast numeru trzeba cos wstawic jakiegos edita!!!!! Edit19.Text !
Sleep(5000);
GG.GGLogoutTrue;
PROSZE :)) napisz do mnie w tej sprawie lub jak wolisz tutaj. moje gg;7358712 blagam to dlamniebardzo wazne. probowalem zmieniac ten numer:intrger nic nie daje nawet kombinowalem z funkcja ale dupa jestem wyjatkowo poczatkujacy ale siegam wysoko:-) hehe prosze pomoz