I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
du skal assigne din listbox til remote connection, som jeg forstår af dit spørgsmål vil du have en listbox lokalt og en listbox remote, du smider så alt i lokalt i remote listbox.
procedure ListBoxToClipboard(ListBox: TListBox; BufferSize: Integer; CopyAll: Boolean); var Buffer: PChar; Size: Integer; Ptr: PChar; I: Integer; Line: string[255]; Count: Integer; begin if not Assigned(ListBox) then Exit;
GetMem(Buffer, BufferSize); Ptr := Buffer; Count := 0; for I := 0 to ListBox.Items.Count - 1 do begin Line := ListBox.Items.strings[I]; if not CopyAll and ListBox.MultiSelect and (not ListBox.Selected[I]) then Continue; { Check buffer overflow } Count := Count + Length(Line) + 3; if Count = BufferSize then Break; { Append to buffer } Move(Line[1], Ptr^, Length(Line)); Ptr := Ptr + Length(Line); Ptr[0] := #13; Ptr[1] := #10; Ptr := Ptr + 2; end; Ptr[0] := #0; ClipBoard.SetTextBuf(Buffer); FreeMem(Buffer, BufferSize); end;
procedure ClipboardToListBox(ListBox: TListbox); begin if not Assigned(ListBox) then Exit;
if not Clipboard.HasFormat(CF_TEXT) then Exit;
Listbox.Items.Text := Clipboard.AsText; end;
procedure TForm1.Button1Click(Sender: TObject); begin ListBoxToClipboard(ListBox1, 1024, True);
end;
procedure TForm1.Button2Click(Sender: TObject); begin ClipboardToListBox(Listbox2);
Jeg ser det som 2 spørgsmål der ikke har noget med hinanden at gøre?
1. ListBox1.Items.Text:=ListBox2.Items.Text;
2. Ja hvis din computer er direkte på internettet. Har du f.eks. en router mellem din internet forbindelse og din computer så skal du først åbne porten i routeren før computere udefra kan få kontakt til din ftp server.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.